mirrors/IHaskell
1
0
Fork 0
mirror of https://github.com/IHaskell/IHaskell.git synced 2025-04-16 03:16:20 +00:00
Code Issues Packages Projects Releases Wiki Activity

Make silent and store_hitsory optional params

Browse Source
This commit is contained in:
zainab-ali 2017-10-08 17:34:28 +01:00
parent 2907c07901
commit cc570a22c2
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
ipython-kernel/src/IHaskell/IPython/Message/Parser.hs
View File

@ -125,9 +125,10 @@ executeInputParser = requestParser $ \obj -> do
executeRequestParser :: LByteString -> Message
executeRequestParser content =
let parser obj = do
let getOrElse a k = (fromMaybe a) <$> obj .:? k
code <- obj .: "code"
silent <- obj .: "silent"
storeHistory <- obj .: "store_history"
silent <- getOrElse False "silent"
storeHistory <- getOrElse (not silent) "store_history"
allowStdin <- obj .: "allow_stdin"
return (code, silent, storeHistory, allowStdin)