Formatting fixes

ipython-kernel/src/IHaskell/IPython/Message/Parser.hs

@@ -153,8 +153,8 @@ executeErrorParser = requestParser $ \obj -> do
   return $ ExecuteError noHeader [] traceback ename evalue
 
 makeDisplayDatas :: Object -> [DisplayData]
-makeDisplayDatas dataDict = [DisplayData (read $ unpack mimeType) content |
-                             (mimeType, String content) <- HM.toList dataDict]
+makeDisplayDatas dataDict = [DisplayData (read $ unpack mimeType) content | (mimeType, String content) <- HM.toList
+                                                                                                            dataDict]
 
 -- | Parse an execute result
 executeResultParser :: LByteString -> Message
@@ -173,7 +173,8 @@ displayDataParser = requestParser $ \obj -> do
   maybeSource <- obj .:? "source"
   return $ PublishDisplayData noHeader (fromMaybe "" maybeSource) displayDatas
 
-requestParser parser content = case parseEither parser decoded of
+requestParser parser content =
+  case parseEither parser decoded of
     Right parsed -> parsed
     Left err     -> trace ("Parse error: " ++ show err) SendNothing
   where

ipython-kernel/src/IHaskell/IPython/Message/Writer.hs

@@ -29,13 +29,21 @@ instance ToJSON Message where
       , "language_info" .= languageInfo rep
       ]
 
-  toJSON ExecuteRequest { getCode = code, getSilent = silent, getStoreHistory = storeHistory,
-                          getAllowStdin = allowStdin, getUserVariables = userVariables,
-                          getUserExpressions = userExpressions
+  toJSON ExecuteRequest
+    { getCode = code
+    , getSilent = silent
+    , getStoreHistory = storeHistory
+    , getAllowStdin = allowStdin
+    , getUserVariables = userVariables
+    , getUserExpressions = userExpressions
     } =
-    object ["code" .= code, "silent" .= silent, "store_history" .= storeHistory,
-            "allow_stdin" .= allowStdin, "user_variables" .= userVariables,
-            "user_expressions" .= userExpressions
+    object
+      [ "code" .= code
+      , "silent" .= silent
+      , "store_history" .= storeHistory
+      , "allow_stdin" .= allowStdin
+      , "user_variables" .= userVariables
+      , "user_expressions" .= userExpressions
       ]
 
   toJSON ExecuteReply { status = status, executionCounter = counter, pagerOutput = pager } =

ipython-kernel/src/IHaskell/IPython/Types.hs

@@ -349,17 +349,10 @@ data Message =
                  , inCode :: String                      -- ^ Submitted input code.
                  , executionCount :: Int                 -- ^ Which input this is.
                  }
-             | Input
-                 { header :: MessageHeader
-                 , getCode :: Text
-                 , executionCount :: Int
-                 }
-             | Output
-                 { header :: MessageHeader
-                 , getText :: [DisplayData]
-                 , executionCount :: Int
-                 }
-             | CompleteRequest
+             | Input { header :: MessageHeader, getCode :: Text, executionCount :: Int }
+             | Output { header :: MessageHeader, getText :: [DisplayData], executionCount :: Int }
+             |
+               CompleteRequest
                  { header :: MessageHeader
                  , getCode :: Text  {- ^
             The entire block of text where the line is. This may be useful in the
@@ -489,7 +482,6 @@ instance FromJSON StreamType where
   parseJSON (String "stdout") = return Stdout
   parseJSON (String "stderr") = return Stderr
 
-
 -- | Get the reply message type for a request message type.
 replyType :: MessageType -> Maybe MessageType
 replyType KernelInfoRequestMessage = Just KernelInfoReplyMessage