From 938f1679158b53190698b5f4a4a0de288c4aac7a Mon Sep 17 00:00:00 2001 From: Drazen Popovic Date: Wed, 10 Jul 2024 13:57:49 +0200 Subject: [PATCH] Rust's printRec adds `pub` to phantom fields --- .../src/LambdaBuffers/Codegen/Rust/Print/TyDef.hs | 2 +- settings.nix | 5 ++++- 2 files changed, 5 insertions(+), 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 index 0a9e890e..3257a414 100644 --- 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 index 6605ac92..579d90f7 100644 --- 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