Rust's printRec adds pub to phantom fields

mlabs-haskell · Jul 10, 2024 · 938f167 · 938f167
1 parent 401f8a9
commit 938f167
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 2 deletions.
diff --git a/lambda-buffers-codegen/src/LambdaBuffers/Codegen/Rust/Print/TyDef.hs b/lambda-buffers-codegen/src/LambdaBuffers/Codegen/Rust/Print/TyDef.hs
@@ -150,7 +150,7 @@ printRec parentTyN tyArgs (PC.Record fields _) = do
   let iTyDefs = indexTyDefs ci
   mn <- asks (view $ Print.ctxModule . #moduleName)
   let phantomTyArgs = collectPhantomTyArgs iTyDefs mn parentTyN (recFieldTys fields) tyArgs
-      phantomFields = printPhantomDataField <$> phantomTyArgs
+      phantomFields = pub . printPhantomDataField <$> phantomTyArgs
   if null fields && null phantomTyArgs
     then return semi
     else do

diff --git a/settings.nix b/settings.nix
@@ -24,7 +24,8 @@
 
             index-state = lib.mkOption {
               type = lib.types.str;
-              description = "Hackage index state to use when making a haskell.nix build environment";
+              description = "Hackage index state to use when making a haskell.nix
+ build environment";
             };
 
             compiler-nix-name = lib.mkOption {
@@ -50,6 +51,8 @@
 
               tools = [
 
+                pkgs.haskellPackages.fourmolu
+                pkgs.haskellPackages.hlint
                 pkgs.haskellPackages.apply-refact
 
                 pkgs.nil