Added support for Ghc984

.claude/settings.local.json

@@ -0,0 +1,8 @@
+{
+  "permissions": {
+    "allow": [
+      "Bash(ghc:*)",
+      "Bash(git stash:*)"
+    ]
+  }
+}

.vscode/extensions.json

@@ -0,0 +1,3 @@
+{
+    "recommendations": []
+}

.vscode/tasks.json

@@ -0,0 +1,50 @@
+
+{
+  // Automatically created by phoityne-vscode extension.
+
+  "version": "2.0.0",
+  "presentation": {
+    "reveal": "always",
+    "panel": "new"
+  },
+  "tasks": [
+    {
+      // F7
+      "group": {
+        "kind": "build",
+        "isDefault": true
+      },
+      "label": "haskell build",
+      "type": "shell",
+      //"command": "cabal configure && cabal build"
+      "command": "stack build"
+    },
+    {
+      // F6
+      "group": "build",
+      "type": "shell",
+      "label": "haskell clean & build",
+      //"command": "cabal clean && cabal configure && cabal build"
+      "command": "stack clean && stack build"
+      //"command": "stack clean ; stack build"  // for powershell
+    },
+    {
+      // F8
+      "group": {
+        "kind": "test",
+        "isDefault": true
+      },
+      "type": "shell",
+      "label": "haskell test",
+      //"command": "cabal test"
+      "command": "stack test"
+    },
+    {
+      // F6
+      "isBackground": true,
+      "type": "shell",
+      "label": "haskell watch",
+      "command": "stack build --test --no-run-tests --file-watch"
+    }
+  ]
+}

beam-core/Database/Beam/Backend/SQL/Row.hs

@@ -25,6 +25,7 @@ import           Control.Applicative
 import           Control.Exception (Exception)
 import           Control.Monad.Free.Church
 import           Control.Monad.Identity
+import           Control.Monad (replicateM_)
 import           Data.Tagged
 import           Data.Typeable
 import           Data.Vector.Sized (Vector)
@@ -277,13 +278,13 @@ instance ( BeamBackend be, Generic (tbl (Nullable Identity)), Generic (tbl (Null
   valuesNeeded be _ = gValuesNeeded be (Proxy @(Rep (tbl (Nullable Exposed)))) (Proxy @(Rep (tbl (Nullable Identity))))
 
 instance (FromBackendRow be x, FromBackendRow be SqlNull) => FromBackendRow be (Maybe x) where
-  fromBackendRow =
-    (Just <$> fromBackendRow) <|>
-    (Nothing <$
-      replicateM_ (valuesNeeded (Proxy @be) (Proxy @(Maybe x)))
-                  (do SqlNull <- fromBackendRow
-                      pure ()))
-  valuesNeeded be _ = valuesNeeded be (Proxy @x)
+    fromBackendRow =
+      (Just <$> fromBackendRow) <|>
+      (Nothing <$
+        replicateM_ (valuesNeeded (Proxy @be) (Proxy @(Maybe x)))
+                    (do SqlNull <- fromBackendRow
+                        pure ()))
+    valuesNeeded be _ = valuesNeeded be (Proxy @x)
 
 instance (BeamBackend be, FromBackendRow be t) => FromBackendRow be (Tagged tag t) where
   fromBackendRow = Tagged <$> fromBackendRow

beam-core/Database/Beam/Backend/SQL/SQL92.hs

@@ -118,7 +118,6 @@ class ( IsSql92ExpressionSyntax (Sql92SelectTableExpressionSyntax select)
       , IsSql92FromSyntax (Sql92SelectTableFromSyntax select)
       , IsSql92GroupingSyntax (Sql92SelectTableGroupingSyntax select)
       , IsSql92AggregationSetQuantifierSyntax (Sql92SelectTableSetQuantifierSyntax select)
-      , IsSql92AggregationIndexHintsSyntax (Sql92SelectTableSetIndexHintsSyntax select)
 
       , Sql92GroupingExpressionSyntax (Sql92SelectTableGroupingSyntax select) ~ Sql92SelectTableExpressionSyntax select
       , Sql92FromExpressionSyntax (Sql92SelectTableFromSyntax select) ~ Sql92SelectTableExpressionSyntax select

beam-core/Database/Beam/Query/CTE.hs

@@ -9,6 +9,8 @@ import Database.Beam.Query.Internal
 import Database.Beam.Query.Types
 
 import Control.Monad.Free.Church
+import Control.Monad.Fix (MonadFix(..))
+
 import Control.Monad.Writer hiding ((<>))
 import Control.Monad.State.Strict
 

beam-core/Database/Beam/Schema/Lenses.hs

@@ -16,6 +16,7 @@ import Database.Beam.Schema.Tables
 import Control.Monad.Identity
 
 import Data.Proxy
+import Data.Function (fix)
 
 import GHC.Generics
 import GHC.Types (Type)

beam-core/flake.nix

@@ -0,0 +1,33 @@
+{
+  inputs = {
+    nixpkgs.url = "github:nixos/nixpkgs/89c2b2330e733d6cdb5eae7b899326930c2c0648";
+    flake-parts.url = "github:hercules-ci/flake-parts";
+    haskell-flake.url = "github:srid/haskell-flake";
+  };
+
+  outputs = inputs@{ self, nixpkgs, flake-parts, ... }:
+    flake-parts.lib.mkFlake { inherit inputs; } ({ withSystem, ... }: {
+      systems = nixpkgs.lib.systems.flakeExposed;
+      imports = [
+        inputs.haskell-flake.flakeModule
+      ];
+      perSystem = { self', pkgs, lib, config, ... }: {
+        haskellProjects.default = {
+          projectFlakeName = "beam";
+          basePackages = pkgs.haskell.packages.ghc98;
+          autoWire = ["packages" "checks" "devShells" "apps"];
+          devShell.tools = hp: {
+            "haskell-language-server" = null;
+          };
+          packages ={
+            pqueue.source = "1.5.0.0";
+          };
+          settings = {
+            pretty-simple = {
+              check = false;
+            };
+          };
+        };
+      };
+    });
+}

beam-migrate-cli/Database/Beam/Migrate/Tool/Registry.hs

@@ -330,7 +330,7 @@ lookupUserInfo _ = do
   let fullName = username
 #else
   userId <- getEffectiveUserID
-  UserEntry { userName = username, userGecos = fullName } <- getUserEntryForID userId
+  UserEntry username _ _ _ fullName _ _ <- getUserEntryForID userId
 #endif
   hostname <- getHostName