Format with fourmolu

.github/workflows/fourmolu.yaml

@@ -0,0 +1,10 @@
+name: Fourmolu
+on: push
+jobs:
+  format:
+    runs-on: ubuntu-latest
+    steps:
+      - uses: actions/checkout@v3
+      - uses: haskell-actions/run-fourmolu@v10
+        with:
+          version: "0.15.0.0"

fourmolu.yaml

@@ -0,0 +1,53 @@
+# Number of spaces per indentation step
+indentation: 2
+
+# Max line length for automatic line breaking
+column-limit: none
+
+# Styling of arrows in type signatures (choices: trailing, leading, or leading-args)
+function-arrows: leading
+
+# How to place commas in multi-line lists, records, etc. (choices: leading or trailing)
+comma-style: leading
+
+# Styling of import/export lists (choices: leading, trailing, or diff-friendly)
+import-export-style: leading
+
+# Whether to full-indent or half-indent 'where' bindings past the preceding body
+indent-wheres: true
+
+# Whether to leave a space before an opening record brace
+record-brace-space: true
+
+# Number of spaces between top-level declarations
+newlines-between-decls: 1
+
+# How to print Haddock comments (choices: single-line, multi-line, or multi-line-compact)
+haddock-style: single-line
+
+# How to print module docstring
+haddock-style-module: null
+
+# Styling of let blocks (choices: auto, inline, newline, or mixed)
+let-style: inline
+
+# How to align the 'in' keyword with respect to the 'let' keyword (choices: left-align, right-align, or no-space)
+in-style: no-space
+
+# Whether to put parentheses around a single constraint (choices: auto, always, or never)
+single-constraint-parens: never
+
+# Whether to put parentheses around a single deriving class (choices: auto, always, or never)
+single-deriving-parens: always
+
+# Output Unicode syntax (choices: detect, always, or never)
+unicode: never
+
+# Give the programmer more choice on where to insert blank lines
+respectful: true
+
+# Fixity information for operators
+fixities: []
+
+# Module reexports Fourmolu should know about
+reexports: []

hpqtypes.cabal

@@ -116,7 +116,7 @@ library
 
   hs-source-dirs:    src
 
-  ghc-options:       -Wall
+  ghc-options:       -Wall -Wprepositive-qualified-module
 
   include-dirs:      libpqtypes/src
 
@@ -152,6 +152,7 @@ library
                     , ForeignFunctionInterface
                     , GADTs
                     , GeneralizedNewtypeDeriving
+                    , ImportQualifiedPost
                     , LambdaCase
                     , MultiParamTypeClasses
                     , MultiWayIf
@@ -170,7 +171,7 @@ library
 
 test-suite hpqtypes-tests
   type:              exitcode-stdio-1.0
-  ghc-options:       -Wall -threaded
+  ghc-options:       -Wall -Wprepositive-qualified-module -threaded
 
   hs-source-dirs:    test
   main-is:           Main.hs
@@ -210,6 +211,7 @@ test-suite hpqtypes-tests
                     , ForeignFunctionInterface
                     , GADTs
                     , GeneralizedNewtypeDeriving
+                    , ImportQualifiedPost
                     , LambdaCase
                     , MultiParamTypeClasses
                     , MultiWayIf

src/Data/Monoid/Utils.hs

@@ -1,5 +1,5 @@
-module Data.Monoid.Utils (
-    mintercalate
+module Data.Monoid.Utils
+  ( mintercalate
   , mspace
   , smappend
   , smconcat
@@ -28,4 +28,5 @@ smconcat = mintercalate mspace
 -- | Infix version of 'smappend'.
 (<+>) :: (IsString m, Monoid m) => m -> m -> m
 (<+>) = smappend
+
 infixr 6 <+>

src/Database/PostgreSQL/PQTypes.hs

@@ -1,42 +1,47 @@
 -- | Set of definitions exposed to the end user.
-module Database.PostgreSQL.PQTypes (
-  -- Database.PostgreSQL.PQTypes.Internal.Connection
-  -- * Connection
+module Database.PostgreSQL.PQTypes
+  ( -- Database.PostgreSQL.PQTypes.Internal.Connection
+
+    -- * Connection
     Connection
-  , ConnectionStats(..)
-  , ConnectionSettings(..)
+  , ConnectionStats (..)
+  , ConnectionSettings (..)
   , defaultConnectionSettings
   , ConnectionSourceM
-  , ConnectionSource(..)
+  , ConnectionSource (..)
   , simpleSource
   , poolSource
   -- Database.PostgreSQL.PQTypes.Internal.Error
-  -- * Exceptions
-  , ErrorCode(..)
-  , DetailedQueryError(..)
-  , QueryError(..)
-  , HPQTypesError(..)
-  , LibPQError(..)
-  , ConversionError(..)
-  , ArrayItemError(..)
-  , InvalidValue(..)
-  , RangeError(..)
-  , ArrayDimensionMismatch(..)
-  , RowLengthMismatch(..)
-  , AffectedRowsMismatch(..)
+
+    -- * Exceptions
+  , ErrorCode (..)
+  , DetailedQueryError (..)
+  , QueryError (..)
+  , HPQTypesError (..)
+  , LibPQError (..)
+  , ConversionError (..)
+  , ArrayItemError (..)
+  , InvalidValue (..)
+  , RangeError (..)
+  , ArrayDimensionMismatch (..)
+  , RowLengthMismatch (..)
+  , AffectedRowsMismatch (..)
   -- Database.PostgreSQL.PQTypes.Internal.Exception
-  , DBException(..)
+  , DBException (..)
   -- Database.PostgreSQL.PQTypes.Internal.Monad
-  -- * Monad transformer
+
+    -- * Monad transformer
   , DBT
   , runDBT
   , mapDBT
   -- Database.PostgreSQL.PQTypes.Internal.QueryResult
-  -- * Query result
+
+    -- * Query result
   , QueryResult
   , ntuples
   , nfields
-  -- * Other modules
+
+    -- * Other modules
   , module Data.Functor.Identity
   , module Database.PostgreSQL.PQTypes.Array
   , module Database.PostgreSQL.PQTypes.Class
@@ -88,4 +93,3 @@ import Database.PostgreSQL.PQTypes.Transaction
 import Database.PostgreSQL.PQTypes.Transaction.Settings
 import Database.PostgreSQL.PQTypes.Utils
 import Database.PostgreSQL.PQTypes.XML
-