Format with fourmolu (#1603)

* Format with fourmolu

* ok with fourmolu 18

Author: parsonsmatt

persistent-mongoDB/test/EmbedTestMongo.hs

@@ -1,22 +1,26 @@
+{-# LANGUAGE DataKinds #-}
+{-# LANGUAGE DerivingStrategies #-}
 {-# LANGUAGE EmptyDataDecls #-}
-{-# LANGUAGE DataKinds, ExistentialQuantification #-}
+{-# LANGUAGE ExistentialQuantification #-}
 {-# LANGUAGE FlexibleContexts #-}
 {-# LANGUAGE FlexibleInstances #-}
+{-# LANGUAGE GeneralizedNewtypeDeriving #-}
 {-# LANGUAGE MultiParamTypeClasses #-}
 {-# LANGUAGE QuasiQuotes #-}
+{-# LANGUAGE StandaloneDeriving #-}
 {-# LANGUAGE TemplateHaskell #-}
 {-# LANGUAGE TypeFamilies #-}
 {-# LANGUAGE UndecidableInstances #-}
-{-# LANGUAGE DerivingStrategies #-}
-{-# LANGUAGE GeneralizedNewtypeDeriving #-}
-{-# LANGUAGE StandaloneDeriving #-}
+
 module EntityEmbedTestMongo where
 
 -- because we are using a type alias we need to declare in a separate module
 -- this is used in EmbedTest
 import MongoInit
 
-mkPersist persistSettings [persistUpperCase|
+mkPersist
+    persistSettings
+    [persistUpperCase|
   ARecord
     name Text
     deriving Show Eq Read Ord

persistent-mongoDB/test/EntityEmbedTestMongo.hs

@@ -1,6 +1,7 @@
 {-# LANGUAGE OverloadedStrings #-}
 {-# LANGUAGE TemplateHaskell #-}
 {-# OPTIONS_GHC -fno-warn-orphans #-}
+
 -- We create an orphan instance for GenerateKey here to avoid a circular
 -- dependency between:
 --
@@ -10,56 +11,79 @@
 --
 -- This kind of cycle is all kinds of bad news.
 
-module MongoInit (
-  BackendMonad
-  , runConn
-  , MonadIO
-  , persistSettings
-  , MkPersistSettings (..)
-  , dbName
-  , db'
-  , setup
-  , mkPersistSettings
-  , Action
-  , Context
-  , BackendKey(MongoKey)
-
-   -- re-exports
-  , module Database.Persist
-  , module Database.Persist.Sql.Raw.QQ
-  , module Test.Hspec
-  , module Test.HUnit
-  , liftIO
-  , mkPersist, mkMigrate, share, sqlSettings, persistLowerCase, persistUpperCase
-  , Int32, Int64
-  , Text
-  , module Control.Monad.Trans.Reader
-  , module Control.Monad
-  , PersistFieldSql(..)
-  , BS.ByteString
-  , SomeException
-  , module Init
-  ) where
+module MongoInit
+    ( BackendMonad
+    , runConn
+    , MonadIO
+    , persistSettings
+    , MkPersistSettings (..)
+    , dbName
+    , db'
+    , setup
+    , mkPersistSettings
+    , Action
+    , Context
+    , BackendKey (MongoKey)
+    -- re-exports
+    , module Database.Persist
+    , module Database.Persist.Sql.Raw.QQ
+    , module Test.Hspec
+    , module Test.HUnit
+    , liftIO
+    , mkPersist
+    , mkMigrate
+    , share
+    , sqlSettings
+    , persistLowerCase
+    , persistUpperCase
+    , Int32
+    , Int64
+    , Text
+    , module Control.Monad.Trans.Reader
+    , module Control.Monad
+    , PersistFieldSql (..)
+    , BS.ByteString
+    , SomeException
+    , module Init
+    ) where
 
 -- we have to be careful with this import becuase CPP is still a problem
 import Init
-    ( TestFn(..), truncateTimeOfDay, truncateUTCTime
-    , truncateToMicro, arbText, liftA2, GenerateKey(..)
-    , (@/=), (@==), (==@)
-    , assertNotEqual, assertNotEmpty, assertEmpty, asIO
+    ( GenerateKey (..)
+    , TestFn (..)
+    , arbText
+    , asIO
+    , assertEmpty
+    , assertNotEmpty
+    , assertNotEqual
     , isTravis
+    , liftA2
+    , truncateTimeOfDay
+    , truncateToMicro
+    , truncateUTCTime
+    , (==@)
+    , (@/=)
+    , (@==)
     )
 
 -- re-exports
 import Control.Exception (SomeException)
-import Control.Monad (void, replicateM, liftM, when, forM_)
+import Control.Monad (forM_, liftM, replicateM, void, when)
 import Control.Monad.Trans.Reader
-import Database.Persist.TH (mkPersist, mkMigrate, share, sqlSettings, persistLowerCase, persistUpperCase, MkPersistSettings(..))
 import Database.Persist.Sql.Raw.QQ
+import Database.Persist.TH
+    ( MkPersistSettings (..)
+    , mkMigrate
+    , mkPersist
+    , persistLowerCase
+    , persistUpperCase
+    , share
+    , sqlSettings
+    )
 import Test.Hspec
 
 -- testing
-import Test.HUnit ((@?=),(@=?), Assertion, assertFailure, assertBool)
+import Test.HUnit (Assertion, assertBool, assertFailure, (@=?), (@?=))
 
 import Control.Monad (unless, (>=>))
 import Control.Monad.IO.Class
@@ -68,11 +92,18 @@ import qualified Data.ByteString as BS
 import Data.Int (Int32, Int64)
 import Data.Text (Text)
 import qualified Database.MongoDB as MongoDB
-import Database.Persist.MongoDB (Action, withMongoPool, runMongoDBPool, defaultMongoConf, applyDockerEnv, BackendKey(..))
-import Language.Haskell.TH.Syntax (Type(..))
+import Database.Persist.MongoDB
+    ( Action
+    , BackendKey (..)
+    , applyDockerEnv
+    , defaultMongoConf
+    , runMongoDBPool
+    , withMongoPool
+    )
+import Language.Haskell.TH.Syntax (Type (..))
 
 import Database.Persist
-import Database.Persist.Sql (PersistFieldSql(..))
+import Database.Persist.Sql (PersistFieldSql (..))
 import Database.Persist.TH (mkPersistSettings)
 
 setup :: Action IO ()
@@ -83,25 +114,25 @@ _debugOn :: Bool
 _debugOn = True
 
 persistSettings :: MkPersistSettings
-persistSettings = (mkPersistSettings $ ConT ''Context) { mpsGeneric = True }
+persistSettings = (mkPersistSettings $ ConT ''Context){mpsGeneric = True}
 
 dbName :: Text
 dbName = "persistent"
 
 type BackendMonad = Context
 
-runConn :: MonadUnliftIO m => Action m backend -> m ()
+runConn :: (MonadUnliftIO m) => Action m backend -> m ()
 runConn f = do
-  conf <- liftIO $ applyDockerEnv $ defaultMongoConf dbName -- { mgRsPrimary = Just "replicaset" }
-  void $ withMongoPool conf $ runMongoDBPool MongoDB.master f
+    conf <- liftIO $ applyDockerEnv $ defaultMongoConf dbName -- { mgRsPrimary = Just "replicaset" }
+    void $ withMongoPool conf $ runMongoDBPool MongoDB.master f
 
 setupMongo :: Action IO ()
 setupMongo = void $ MongoDB.dropDatabase dbName
 
 db' :: Action IO () -> Action IO () -> Assertion
 db' actions cleanDB = do
-  r <- runConn (actions >> cleanDB)
-  return r
+    r <- runConn (actions >> cleanDB)
+    return r
 
 instance GenerateKey MongoDB.MongoContext where
     generateKey = MongoKey `liftM` MongoDB.genObjectId

persistent-mongoDB/test/MongoInit.hs

@@ -1,33 +1,43 @@
 {-# LANGUAGE OverloadedStrings #-}
+
 module RawMongoHelpers where
 
 import qualified Database.MongoDB as MongoDB
-import Database.Persist.MongoDB (toInsertDoc, docToEntityThrow, collectionName, recordToDocument)
+import Database.Persist.MongoDB
+    ( collectionName
+    , docToEntityThrow
+    , recordToDocument
+    , toInsertDoc
+    )
 
 import MongoInit
 import PersistentTest (cleanDB)
 import PersistentTestModels
 
-
 db :: ReaderT MongoDB.MongoContext IO () -> IO ()
 db = db' cleanDB
 
 specs :: Spec
 specs = do
-  describe "raw MongoDB helpers" $ do
-    it "collectionName" $ do
-        collectionName (Person "Duder" 0 Nothing) @?= "Person"
+    describe "raw MongoDB helpers" $ do
+        it "collectionName" $ do
+            collectionName (Person "Duder" 0 Nothing) @?= "Person"
 
-    it "toInsertFields, entityFields, & docToEntityThrow" $ db $ do
-        let p1 = Person "Duder" 0 Nothing
-        let doc = toInsertDoc p1
-        MongoDB.ObjId _id <- MongoDB.insert "Person" $ doc
-        let idSelector = "_id" MongoDB.=: _id
-        Entity _ ent1 <- docToEntityThrow $ idSelector:doc
-        liftIO $ p1 @?= ent1
+        it "toInsertFields, entityFields, & docToEntityThrow" $ db $ do
+            let
+                p1 = Person "Duder" 0 Nothing
+            let
+                doc = toInsertDoc p1
+            MongoDB.ObjId _id <- MongoDB.insert "Person" $ doc
+            let
+                idSelector = "_id" MongoDB.=: _id
+            Entity _ ent1 <- docToEntityThrow $ idSelector : doc
+            liftIO $ p1 @?= ent1
 
-        let p2 = p1 {personColor = Just "blue"}
-        let doc2 = idSelector:recordToDocument p2
-        MongoDB.save "Person" doc2
-        Entity _ ent2 <- docToEntityThrow doc2
-        liftIO $ p2 @?= ent2
+            let
+                p2 = p1{personColor = Just "blue"}
+            let
+                doc2 = idSelector : recordToDocument p2
+            MongoDB.save "Person" doc2
+            Entity _ ent2 <- docToEntityThrow doc2
+            liftIO $ p2 @?= ent2