Update Haskell compiler to GHC 9.10

Author: robinheghan

.github/workflows/build.yml

@@ -7,7 +7,7 @@ on:
     branches: [main]
 
 env:
-  ghc: "9.8.4"
+  ghc: "9.10.3"
   cabal: "3.12.1.0"
 
 jobs:
@@ -17,7 +17,7 @@ jobs:
       - uses: actions/checkout@v4
 
       - name: Install devbox
-        uses: jetify-com/devbox-install-action@v0.13.0
+        uses: jetify-com/devbox-install-action@v0.14.0
         with:
           enable-cache: true
 
@@ -38,7 +38,7 @@ jobs:
 
   linux:
     runs-on: ubuntu-latest
-    container: alpine:3.17
+    container: alpine:3.18
     needs: validate-code-formatting
 
     steps:
@@ -48,7 +48,7 @@ jobs:
       - uses: actions/checkout@v4
 
       - name: Install GHCup
-        run: curl https://downloads.haskell.org/~ghcup/0.1.30.0/x86_64-linux-ghcup-0.1.30.0 -o /usr/local/bin/ghcup && chmod a+x /usr/local/bin/ghcup
+        run: curl https://downloads.haskell.org/~ghcup/0.1.50.2/x86_64-linux-ghcup-0.1.50.2 -o /usr/local/bin/ghcup && chmod a+x /usr/local/bin/ghcup
 
       - name: Cache ghcup
         uses: actions/cache@v4

builder/src/Reporting/Exit.hs

@@ -128,8 +128,7 @@ diffToReport diff =
       Help.report
         "UNKNOWN PACKAGE"
         Nothing
-        ( "I cannot find a package called:"
-        )
+        ("I cannot find a package called:")
         [ D.indent 4 $ D.red $ D.fromChars $ Pkg.toChars pkg,
           "Maybe you want one of these instead?",
           D.indent 4 $ D.dullyellow $ D.vcat $ map (D.fromChars . Pkg.toChars) suggestions,
@@ -1976,8 +1975,7 @@ makeToReport make =
       Help.report
         "TOO MANY FILES"
         Nothing
-        ( "When producing an HTML file or executable, I can only handle one file."
-        )
+        ("When producing an HTML file or executable, I can only handle one file.")
         [ D.fillSep
             [ "Switch",
               "to",
@@ -2145,8 +2143,7 @@ makeToReport make =
       Help.report
         "HTML FILES CAN ONLY BE CREATED FOR BROWSER PLATFORM"
         Nothing
-        ( "When producing a HTML file, I require that the project platform is `browser`."
-        )
+        ("When producing a HTML file, I require that the project platform is `browser`.")
         [ D.reflow $
             "Try changing the `target` value in `gren.json` to `browser`.\
             \ alternatively, pass a filename ending with `.js` to the compiler."
@@ -2155,8 +2152,7 @@ makeToReport make =
       Help.report
         "EXECUTABLES CAN ONLY BE CREATED FOR NODE PLATFORM"
         Nothing
-        ( "When producing an executable, I require that the project platform is `node`."
-        )
+        ("When producing an executable, I require that the project platform is `node`.")
         [ D.reflow $
             "Try changing the `target` value in `gren.json` to `node`.\
             \ alternatively, pass a filename ending with `.js` to the compiler."

builder/src/Reporting/Task.hs

@@ -16,8 +16,7 @@ where
 
 newtype Task x a
   = Task
-      ( forall result. (a -> IO result) -> (x -> IO result) -> IO result
-      )
+      (forall result. (a -> IO result) -> (x -> IO result) -> IO result)
 
 run :: Task x a -> IO (Either x a)
 run (Task task) =

compiler/src/Generate/JavaScript.hs

@@ -176,13 +176,11 @@ addGlobalHelp mode graph global@(Opt.Global home _) state =
           | length args > 1 ->
               addStmt
                 (addDeps deps state)
-                ( trackedFn region global args (Expr.generateFunctionImplementation mode argLookup home funcStart args body)
-                )
+                (trackedFn region global args (Expr.generateFunctionImplementation mode argLookup home funcStart args body))
         Just (Opt.Define region expr deps) ->
           addStmt
             (addDeps deps state)
-            ( trackedVar region global (Expr.generate mode argLookup home expr)
-            )
+            (trackedVar region global (Expr.generate mode argLookup home expr))
         Just (Opt.DefineTailFunc region argNames body deps) ->
           addStmt
             (addDeps deps state)
@@ -193,49 +191,41 @@ addGlobalHelp mode graph global@(Opt.Global home _) state =
           | arity > 1 ->
               addStmt
                 state
-                ( ctor global arity (Expr.generateCtorImplementation mode global index arity)
-                )
+                (ctor global arity (Expr.generateCtorImplementation mode global index arity))
         Just (Opt.Ctor index arity) ->
           addStmt
             state
-            ( var global (Expr.generateCtor mode global index arity)
-            )
+            (var global (Expr.generateCtor mode global index arity))
         Just (Opt.Link linkedGlobal) ->
           addGlobal mode graph state linkedGlobal
         Just (Opt.Cycle names values functions deps) ->
           addStmt
             (addDeps deps state)
-            ( generateCycle mode argLookup global names values functions
-            )
+            (generateCycle mode argLookup global names values functions)
         Just (Opt.Manager effectsType) ->
           generateManager mode graph global effectsType state
         Just (Opt.Kernel chunks deps) ->
           addDeps deps (addKernel state (generateKernel mode chunks))
         Just (Opt.Enum index) ->
           addStmt
             state
-            ( generateEnum mode global index
-            )
+            (generateEnum mode global index)
         Just Opt.Box ->
           addStmt
             (addGlobal mode graph state identity)
-            ( generateBox mode global
-            )
+            (generateBox mode global)
         Just (Opt.PortIncoming isBytes decoder deps) ->
           addStmt
             (addDeps deps state)
-            ( generatePort mode global "incomingPort" isBytes decoder
-            )
+            (generatePort mode global "incomingPort" isBytes decoder)
         Just (Opt.PortOutgoing isBytes encoder deps) ->
           addStmt
             (addDeps deps state)
-            ( generatePort mode global "outgoingPort" isBytes encoder
-            )
+            (generatePort mode global "outgoingPort" isBytes encoder)
         Just (Opt.PortTask inputBytes maybeEncoder outputBytes decoder deps) ->
           addStmt
             (addDeps deps state)
-            ( generateTaskPort mode global inputBytes maybeEncoder outputBytes decoder
-            )
+            (generateTaskPort mode global inputBytes maybeEncoder outputBytes decoder)
 
 addStmt :: State -> JS.Stmt -> State
 addStmt (State seen builder) stmt =

devbox.json

@@ -2,8 +2,8 @@
   "$schema": "https://raw.githubusercontent.com/jetify-com/devbox/0.14.0/.schema/devbox.schema.json",
   "packages": [
     "nodejs@20",
-    "ormolu@0.7",
-    "ghc@9.8",
+    "ormolu@0.8",
+    "ghc@9.10",
     "[email protected]"
   ],
   "shell": {