Reformatting code to match hindent

src/IHaskell/Convert.hs

 {-# LANGUAGE NoImplicitPrelude #-}
+
 -- | Description : mostly reversible conversion between ipynb and lhs 
 module IHaskell.Convert (convert) where
 

src/IHaskell/Convert/Args.hs

 {-# LANGUAGE NoImplicitPrelude #-}
+
 -- | Description: interpret flags parsed by "IHaskell.Flags"
 module IHaskell.Convert.Args (ConvertSpec(..), fromJustConvertSpec, toConvertSpec) where
 

src/IHaskell/Eval/Hoogle.hs

@@ -55,7 +55,9 @@ instance FromJSON HoogleResponse where
 query :: String -> IO (Either String String)
 query str = do
   request <- parseUrl $ queryUrl $ urlEncode str
-  catch (Right . CBS.unpack . LBS.toStrict . responseBody <$> withManager tlsManagerSettings (httpLbs request))
+  catch
+    (Right . CBS.unpack . LBS.toStrict . responseBody <$> withManager tlsManagerSettings
+                                                            (httpLbs request))
     (\e -> return $ Left $ show (e :: SomeException))
 
   where
@@ -94,7 +96,7 @@ search string = do
     case response of
       Left err -> [NoResult err]
       Right json ->
-        case eitherDecode $ LBS.fromStrict$ CBS.pack json of
+        case eitherDecode $ LBS.fromStrict $ CBS.pack json of
           Left err -> [NoResult err]
           Right results ->
             case map SearchResult results of

src/IHaskell/Eval/ParseShell.hs

 {-# LANGUAGE NoImplicitPrelude #-}
+
 -- | This module splits a shell command line into a list of strings,
 --   one for each command / filename
 module IHaskell.Eval.ParseShell (parseShell) where

src/IHaskell/Eval/Util.hs

@@ -116,6 +116,7 @@ pprDynFlags show_all dflags =
     
     fstr, fnostr :: String -> O.SDoc
     fstr str = O.text "-f" O.<> O.text str
+    
     fnostr str = O.text "-fno-" O.<> O.text str
     
     (ghciFlags, others) = partition (\f -> flagSpecFlag f `elem` flgs) DynFlags.fFlags
@@ -137,14 +138,16 @@ pprLanguages :: Bool      -- ^ Whether to include flags which are on by default
              -> O.SDoc
 pprLanguages show_all dflags =
   O.vcat
-    [O.text "base language is: " O.<>
+    [ O.text "base language is: " O.<>
       case language dflags of
         Nothing          -> O.text "Haskell2010"
         Just Haskell98   -> O.text "Haskell98"
-       Just Haskell2010 -> O.text "Haskell2010", (if show_all
+        Just Haskell2010 -> O.text "Haskell2010"
+    , (if show_all
          then O.text "all active language options:"
          else O.text "with the following modifiers:") O.$$
-                                               O.nest 2 (O.vcat (map (setting xopt) DynFlags.xFlags))]
+      O.nest 2 (O.vcat (map (setting xopt) DynFlags.xFlags))
+    ]
   where
     setting test flag
       | quiet = O.empty

src/Main.hs

@@ -252,7 +252,9 @@ replyTo interface req@ExecuteRequest { getCode = code } replyHeader state = do
       convertSvgToHtml x = x
 
       makeSvgImg :: Base64 -> String
-      makeSvgImg base64data = T.unpack $ "<img src=\"data:image/svg+xml;base64," <> base64data <> "\"/>"
+      makeSvgImg base64data = T.unpack $ "<img src=\"data:image/svg+xml;base64," <>
+                                         base64data <>
+                                         "\"/>"
 
       prependCss (DisplayData MimeHtml html) =
         DisplayData MimeHtml $ mconcat ["<style>", T.pack ihaskellCSS, "</style>", html]