stylish-haskell

Author: parsonsmatt

Setup.hs

@@ -1,2 +1,2 @@
-import Distribution.Simple
+import           Distribution.Simple
 main = defaultMain

app/Main.hs

@@ -1,6 +1,6 @@
 module Main where
 
-import           Init                     (runApp)
+import           Init (runApp)
 
 -- | The 'main' function gathers the required environment information and
 -- initializes the application.

src/Api.hs

@@ -4,12 +4,11 @@
 module Api (app) where
 
 import           Control.Monad.Reader (runReaderT)
-import           Servant              ((:<|>) ((:<|>)),
-                                       Proxy (Proxy), Raw, Server,
-                                       serve, serveDirectoryFileServer)
+import           Servant              ((:<|>) ((:<|>)), Proxy (Proxy), Raw,
+                                       Server, serve, serveDirectoryFileServer)
 import           Servant.Server
 
-import           Api.User             (UserAPI, userServer, userApi)
+import           Api.User             (UserAPI, userApi, userServer)
 import           Config               (AppT (..), Config (..))
 
 -- | This is the function we export to run our 'UserAPI'. Given

src/Api/User.hs

@@ -15,8 +15,8 @@ import           Servant.JS                  (vanillaJS, writeJSForAPI)
 
 import           Config                      (AppT (..))
 import           Control.Monad.Metrics       (increment, metricsCounters)
-import           Data.IORef                  (readIORef)
 import           Data.HashMap.Lazy           (HashMap)
+import           Data.IORef                  (readIORef)
 import           Data.Text                   (Text)
 import           Lens.Micro                  ((^.))
 import           Models                      (User (User), runDb, userEmail,

src/DevelMain.hs

@@ -18,16 +18,15 @@ module DevelMain where
 
 import           Prelude
 
-import           Control.Concurrent       (MVar, ThreadId, forkIO, killThread,
-                                           newEmptyMVar, putMVar, takeMVar)
-import           Control.Exception        (finally)
-import           Control.Monad            ((>=>))
-import           Data.IORef               (IORef, newIORef, readIORef,
-                                           writeIORef)
-import           Foreign.Store            (Store (..), lookupStore, readStore,
-                                           storeAction, withStore)
-import           GHC.Word                 (Word32)
-import           Init                     (runApp)
+import           Control.Concurrent (MVar, ThreadId, forkIO, killThread,
+                                     newEmptyMVar, putMVar, takeMVar)
+import           Control.Exception  (finally)
+import           Control.Monad      ((>=>))
+import           Data.IORef         (IORef, newIORef, readIORef, writeIORef)
+import           Foreign.Store      (Store (..), lookupStore, readStore,
+                                     storeAction, withStore)
+import           GHC.Word           (Word32)
+import           Init               (runApp)
 
 -- | Start or restart the server.
 -- newStore is from foreign-store.

src/Logger.hs

@@ -11,10 +11,10 @@ module Logger
     ) where
 
 import           Control.Monad.Logger
-import qualified Control.Monad.Logger   as Logger
+import qualified Control.Monad.Logger  as Logger
 import           Katip
-import qualified System.IO              as IO
-import qualified System.Log.FastLogger  as FastLogger
+import qualified System.IO             as IO
+import qualified System.Log.FastLogger as FastLogger
 
 defaultLogEnv :: IO LogEnv
 defaultLogEnv = do

test/ApiSpec.hs

@@ -1,7 +1,7 @@
 module ApiSpec where
 
-import Test.Hspec
-import Test.QuickCheck
+import           Test.Hspec
+import           Test.QuickCheck
 
 spec :: Spec
 spec = do

test/UserDbSpec.hs

@@ -10,8 +10,8 @@ import           Control.Exception           (throwIO)
 import           Control.Monad.Except        (runExceptT)
 import           Control.Monad.Reader        (runReaderT)
 
-import           Database.Persist.Postgresql (Entity (..), deleteWhere,
-                                              insert, runSqlPool)
+import           Database.Persist.Postgresql (Entity (..), deleteWhere, insert,
+                                              runSqlPool)
 import           Database.Persist.Sql        (ConnectionPool)
 import           Database.Persist.Types      (Filter)