diff options
author | Daniel Gröber <dxld@darkboxed.org> | 2018-12-16 01:47:41 +0100 |
---|---|---|
committer | Daniel Gröber <dxld@darkboxed.org> | 2019-01-22 03:06:51 +0100 |
commit | 6208bb73fef1a12874db0e2d9b9f25f5dadc2e29 (patch) | |
tree | c31632c5682f2c5fadc83c090a765b4d513fc34c /src | |
parent | 30591c394974aa282891e37a6cff2802b4f92773 (diff) |
Make most record fields strict
This lets GHC give better error messages when forgetting to initialize a field
when using the `let field = _ in DataType{..}` RecordWildcards syntax.
Diffstat (limited to 'src')
-rw-r--r-- | src/CabalHelper/Compiletime/Compile.hs | 16 | ||||
-rw-r--r-- | src/CabalHelper/Compiletime/Program/GHC.hs | 16 |
2 files changed, 16 insertions, 16 deletions
diff --git a/src/CabalHelper/Compiletime/Compile.hs b/src/CabalHelper/Compiletime/Compile.hs index 97adac2..c39a731 100644 --- a/src/CabalHelper/Compiletime/Compile.hs +++ b/src/CabalHelper/Compiletime/Compile.hs @@ -71,19 +71,19 @@ import Paths_cabal_helper (version) data Compile = CompileWithCabalSource - { compCabalSourceDir :: CabalSourceDir - , compCabalSourceVersion :: Version + { compCabalSourceDir :: !CabalSourceDir + , compCabalSourceVersion :: !Version } | CompileWithCabalPackage - { compPackageSource :: GhcPackageSource - , compCabalVersion :: ResolvedCabalVersion - , compProductTarget :: CompilationProductScope + { compPackageSource :: !GhcPackageSource + , compCabalVersion :: !ResolvedCabalVersion + , compProductTarget :: !CompilationProductScope } data CompPaths = CompPaths - { compBuildDir:: FilePath - , compOutDir :: FilePath - , compExePath :: FilePath + { compBuildDir:: !FilePath + , compOutDir :: !FilePath + , compExePath :: !FilePath } -- | The Helper executable we produce as a compilation product can either be diff --git a/src/CabalHelper/Compiletime/Program/GHC.hs b/src/CabalHelper/Compiletime/Program/GHC.hs index 4565a37..e21a258 100644 --- a/src/CabalHelper/Compiletime/Program/GHC.hs +++ b/src/CabalHelper/Compiletime/Program/GHC.hs @@ -49,15 +49,15 @@ data GhcPackageSource | GPSPackageEnv !PackageEnvFile data GhcInvocation = GhcInvocation - { giOutDir :: FilePath - , giOutput :: FilePath - , giCPPOptions :: [String] - , giIncludeDirs :: [FilePath] - , giHideAllPackages :: Bool - , giPackages :: [String] - , giWarningFlags :: [String] - , giInputs :: [String] + { giOutDir :: !FilePath + , giOutput :: !FilePath + , giCPPOptions :: ![String] , giPackageSource :: !GhcPackageSource + , giIncludeDirs :: ![FilePath] + , giHideAllPackages :: !Bool + , giPackages :: ![String] + , giWarningFlags :: ![String] + , giInputs :: ![String] } newtype GhcVersion = GhcVersion { unGhcVersion :: Version } |