Apply stylish haskell

Author: toddmohney

src/Control/Flipper/Adapters/Postgres/Models.hs

@@ -18,10 +18,10 @@ module Control.Flipper.Adapters.Postgres.Models
     , module Database.Persist.Postgresql
     ) where
 
-import qualified Data.Map.Strict                            as Map
+import qualified Data.Map.Strict             as Map
 import           Data.Monoid                 ((<>))
-import           Data.Set (Set)
-import qualified Data.Set as S
+import           Data.Set                    (Set)
+import qualified Data.Set                    as S
 import           Data.Text                   (Text)
 import qualified Data.Text                   as T
 import           Data.Time                   (UTCTime (..), getCurrentTime)

src/Control/Flipper/Adapters/Postgres/Query.hs

@@ -11,8 +11,8 @@ module Control.Flipper.Adapters.Postgres.Query
     ) where
 
 import           Control.Monad                              (forM_, void)
-import           Data.Set (Set)
-import qualified Data.Set as S
+import           Data.Set                                   (Set)
+import qualified Data.Set                                   as S
 import           Data.Time.Clock                            (getCurrentTime)
 
 import           Control.Flipper.Adapters.Postgres.DBAccess as DB
@@ -45,7 +45,7 @@ getFeatureByName :: (MonadIO app, Monad m)
 getFeatureByName fName dbAccess = do
     mFeatureEnt <- getFeatureByName' fName dbAccess
     case mFeatureEnt of
-        Nothing -> return Nothing
+        Nothing                   -> return Nothing
         (Just (Entity _ feature)) -> return . Just . modelToFeature $ feature
 
 {- |

test/Control/Flipper/Postgres/QuerySpec.hs

@@ -1,13 +1,13 @@
 module Control.Flipper.Postgres.QuerySpec (main, spec) where
 
-import           Control.Monad                            (void)
-import qualified Data.Set as S
+import           Control.Monad                           (void)
+import qualified Data.Set                                as S
 import           Test.Hspec
 
 import           Control.Flipper.Adapters.Postgres
-import qualified Control.Flipper.Adapters.Postgres.Query  as Q
-import qualified Control.Flipper.Types                    as T
-import qualified Helpers.Config                           as Cfg
+import qualified Control.Flipper.Adapters.Postgres.Query as Q
+import qualified Control.Flipper.Types                   as T
+import qualified Helpers.Config                          as Cfg
 
 main :: IO ()
 main = hspec spec