From cc570a22c276b3a587306970c171b8a3b76d76c5 Mon Sep 17 00:00:00 2001 From: zainab-ali Date: Sun, 8 Oct 2017 17:34:28 +0100 Subject: [PATCH] Make silent and store_hitsory optional params --- ipython-kernel/src/IHaskell/IPython/Message/Parser.hs | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/ipython-kernel/src/IHaskell/IPython/Message/Parser.hs b/ipython-kernel/src/IHaskell/IPython/Message/Parser.hs index 0d50912b..1f26ebb0 100644 --- a/ipython-kernel/src/IHaskell/IPython/Message/Parser.hs +++ b/ipython-kernel/src/IHaskell/IPython/Message/Parser.hs @@ -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)