Miscellaneous updates (#2)

* update style rules and autoformat
* add an lts-21 config and a nix dev shell
* avoid use of 'head'
* write toModuleFullName point-free

.github/workflows/ci.yml

@@ -15,21 +15,22 @@ jobs:
     strategy:
       matrix:
         stack-yaml:
-          - stack-nightly.yaml   # ghc-9.4
-          - stack.yaml           # ghc-9.2
+          - stack-nightly.yaml # ghc-9.4
+          - stack.yaml # ghc-9.4
+          - stack-lts-19.6.yaml # ghc-9.2
           - stack-lts-18.28.yaml # ghc-8.10
           - stack-lts-16.31.yaml # ghc-8.8
       fail-fast: false
     steps:
-      - uses: actions/checkout@v3
+      - uses: actions/checkout@v4
       - uses: freckle/stack-action@v4
         with:
           stack-yaml: ${{ matrix.stack-yaml }}
 
   lint:
     runs-on: ubuntu-latest
     steps:
-      - uses: actions/checkout@v3
+      - uses: actions/checkout@v4
       - uses: haskell/actions/hlint-setup@v2
       - uses: haskell/actions/hlint-run@v2
         with:

.restyled.yaml

@@ -0,0 +1,4 @@
+restylers:
+  - fourmolu
+  - "!stylish-haskell"
+  - "*"

example/Hspec.hs

@@ -4,19 +4,19 @@ module Main
 
 import Prelude
 
-import Module.Discover.Run (Module(..), run)
+import Module.Discover.Run (Module (..), run)
 import System.Environment (getArgs)
 
 main :: IO ()
 main = getArgs >>= run (pure . make) Nothing
 
 make :: [Module] -> String
 make modules =
-  unlines
-    $ ["module Main (main) where", ""]
-    <> (toQualifiedImport <$> modules)
-    <> ["", "main :: IO ()", "main = do"]
-    <> (toMainCall <$> modules)
+  unlines $
+    ["module Main (main) where", ""]
+      <> (toQualifiedImport <$> modules)
+      <> ["", "main :: IO ()", "main = do"]
+      <> (toMainCall <$> modules)
 
 toQualifiedImport :: Module -> String
 toQualifiedImport Module {..} = "import qualified " <> moduleFullName

example/Main.hs

@@ -4,19 +4,19 @@ module Main
 
 import Prelude
 
-import Module.Discover.Run (Module(..), run)
+import Module.Discover.Run (Module (..), run)
 import System.Environment (getArgs)
 
 main :: IO ()
 main = getArgs >>= run (pure . make) Nothing
 
 make :: [Module] -> String
 make modules =
-  unlines
-    $ ["module Main (main) where", ""]
-    <> (toQualifiedImport <$> modules)
-    <> ["", "main :: IO ()", "main = do"]
-    <> (toMainCall <$> modules)
+  unlines $
+    ["module Main (main) where", ""]
+      <> (toQualifiedImport <$> modules)
+      <> ["", "main :: IO ()", "main = do"]
+      <> (toMainCall <$> modules)
 
 toQualifiedImport :: Module -> String
 toQualifiedImport Module {..} =