Add fourmolu config and restyled (#1570)

* Add fourmolu config and restyled

* neat

* format a module

* woof

* nothx

* Update persistent/Database/Persist/SqlBackend/Internal/Statement.hs

Co-authored-by: github-actions[bot] <41898282+github-actions[bot]@users.noreply.github.com>

* Remove reference to stylish-haskell

---------

Co-authored-by: github-actions[bot] <41898282+github-actions[bot]@users.noreply.github.com>

Author: parsonsmatt

.github/PULL_REQUEST_TEMPLATE.md

@@ -2,8 +2,9 @@ Before submitting your PR, check that you've:
 
 - [ ] Documented new APIs with [Haddock markup](https://www.haskell.org/haddock/doc/html/index.html)
 - [ ] Added [`@since` declarations](http://haskell-haddock.readthedocs.io/en/latest/markup.html#since) to the Haddock
-- [ ] Ran `stylish-haskell` on any changed files.
-- [ ] Adhered to the code style (see the `.editorconfig` file for details)
+- [ ] Ran `fourmolu` on any changed files (`restyled` will do this for you, so
+  accept the suggested changes if it makes them)
+- [ ] Adhered to the code style (see the `.editorconfig` and `fourmolu.yaml` files for details)
 
 After submitting your PR:
 

.github/workflows/restyled.yml

@@ -0,0 +1,20 @@
+# .github/workflows/restyled.yml
+
+name: Restyled
+
+on:
+  pull_request:
+
+concurrency:
+  group: ${{ github.workflow }}-${{ github.ref }}
+  cancel-in-progress: true
+
+jobs:
+  restyled:
+    runs-on: ubuntu-latest
+    steps:
+      - uses: actions/checkout@v4
+      - uses: restyled-io/actions/setup@v4
+      - uses: restyled-io/actions/run@v4
+        with:
+          suggestions: true

.restyled.yaml

@@ -0,0 +1,4 @@
+restylers:
+  - fourmolu
+  - stylish-haskell:
+      enabled: false

.stylish-haskell.yaml

@@ -1,11 +1,10 @@
 # Style Guide
 
-## `stylish-haskell`
+## `fourmolu`
 
 This repository uses
-[`stylish-haskell`](https://hackage.haskell.org/package/stylish-haskell) as an
-autoformatter. `stylish-haskell` is inherently limited, so it won't handle
-everything, but it will format import lists, extension lists, etc.
+[`fourmolu`](https://hackage.haskell.org/package/fourmolu) as an
+autoformatter.
 
 ## `editorconfig`
 

development.md

@@ -0,0 +1,71 @@
+# Number of spaces per indentation step
+indentation: 4
+
+# Max line length for automatic line breaking
+column-limit: 80
+
+# 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
+
+# Rules for grouping import declarations
+import-grouping: legacy
+
+# Whether to full-indent or half-indent 'where' bindings past the preceding body
+indent-wheres: false
+
+# Whether to leave a space before an opening record brace
+record-brace-space: false
+
+# 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: newline
+
+# How to align the 'in' keyword with respect to the 'let' keyword (choices: left-align, right-align, or no-space)
+in-style: right-align
+
+# Whether to put parentheses around a single constraint (choices: auto, always, or never)
+single-constraint-parens: always
+
+# Whether to put parentheses around a single deriving class (choices: auto, always, or never)
+single-deriving-parens: always
+
+# Whether to sort constraints
+sort-constraints: false
+
+# Whether to sort derived classes
+sort-derived-classes: false
+
+# Whether to sort deriving clauses
+sort-deriving-clauses: false
+
+# Whether to place section operators (those that are infixr 0, such as $) in trailing position, continuing the expression indented below
+trailing-section-operators: true
+
+# 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: []
+
+# Modules defined by the current Cabal package for import grouping
+local-modules: []

fourmolu.yaml

@@ -1,19 +1,21 @@
-{-# language RankNTypes #-}
+{-# LANGUAGE RankNTypes #-}
 
 module Database.Persist.SqlBackend.Internal.Statement where
 
+import Conduit
 import Data.Acquire
-import Database.Persist.Types.Base
 import Data.Int
-import Conduit
+import Database.Persist.Types.Base
 
 -- | A 'Statement' is a representation of a database query that has been
 -- prepared and stored on the server side.
 data Statement = Statement
     { stmtFinalize :: IO ()
     , stmtReset :: IO ()
     , stmtExecute :: [PersistValue] -> IO Int64
-    , stmtQuery :: forall m. MonadIO m
-                => [PersistValue]
-                -> Acquire (ConduitM () [PersistValue] m ())
+    , stmtQuery
+        :: forall m
+         . (MonadIO m)
+        => [PersistValue]
+        -> Acquire (ConduitM () [PersistValue] m ())
     }