Fixed brittany formatting

Author: CMCDragonkai

app/ffi/Main.hs

@@ -1,13 +1,13 @@
 module Main where
 
-import qualified FFI as F
-import           Lib (someFunc)
+import qualified FFI                           as F
+import           Lib                            ( someFunc )
 
 main :: IO ()
 main = do
   time <- F.getTime
-  let foreignPi = F.getPi
-  let negPi = F.getNegPi
+  let foreignPi  = F.getPi
+  let negPi      = F.getNegPi
   let foreignSum = F.negAdd 1 2
   print time
   print foreignPi

app/library/Main.hs

@@ -52,7 +52,7 @@ bar' msg = L.runFileLoggingT "/tmp/demo.log" $ do
   $(L.logInfo) $ T.pack $ "[bar'] Got user input: " ++ msg
   -- get the logging action from caller's logging context
   logAction <- L.askLoggerIO
-  out <- liftIO $ runBarWithLogger (`runLoggingT` logAction) $ preBar msg
+  out       <- liftIO $ runBarWithLogger (`runLoggingT` logAction) $ preBar msg
   liftIO $ putStrLn out
 
 -- run runFooBarT and supply a file based logging capability

app/service/Main.hs

@@ -1,6 +1,6 @@
 module Main where
 
-import Demo
+import           Demo
 
 main :: IO ()
 main = Demo.runDemoApp

src/Demo.hs

@@ -66,8 +66,7 @@ runDemo env demo = L.runStderrLoggingT $ runReaderT (runDemoT demo) env
 
 warpApp :: Application
 warpApp req respond = E.bracket_
-  (L.runStderrLoggingT
-   ($(L.logInfo) "Try IO Block"))
+  (L.runStderrLoggingT ($(L.logInfo) "Try IO Block"))
   (L.runStderrLoggingT ($(L.logInfo) "Clean IO Block"))
   (respond $ Wai.responseLBS HTTP.status200
                              [(HTTPHeaders.hContentType, "text/plain")]