aboutsummaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authorDaniel Gröber <dxld@darkboxed.org>2018-10-26 04:19:00 +0200
committerDaniel Gröber <dxld@darkboxed.org>2018-10-27 20:48:56 +0200
commitdfec1a97d8efde1fd4995f302bb0d16423cf1afd (patch)
tree59258db872d5762a5aa14949ab7523efa67d9203 /src
parent100a816f725294b13aeb33937d3fd6b49735b7c9 (diff)
Make some more datatype fields strict
Diffstat (limited to 'src')
-rw-r--r--src/CabalHelper/Compiletime/Types.hs6
1 files changed, 3 insertions, 3 deletions
diff --git a/src/CabalHelper/Compiletime/Types.hs b/src/CabalHelper/Compiletime/Types.hs
index 5ae712a..88f11f6 100644
--- a/src/CabalHelper/Compiletime/Types.hs
+++ b/src/CabalHelper/Compiletime/Types.hs
@@ -96,7 +96,7 @@ type QueryEnv (proj_type :: ProjType)
data QueryEnvI cache (proj_type :: ProjType) = QueryEnv
{ qeReadProcess
- :: Maybe FilePath -> FilePath -> [String] -> String -> IO String
+ :: !(Maybe FilePath -> FilePath -> [String] -> String -> IO String)
-- ^ Field accessor for 'QueryEnv'. Function used to to start
-- processes. Useful if you need to, for example, redirect standard error
-- output away from the user\'s terminal.
@@ -111,11 +111,11 @@ data QueryEnvI cache (proj_type :: ProjType) = QueryEnv
-- ^ Field accessor for 'QueryEnv'. Defines path to the project directory,
-- i.e. a directory containing a @cabal.project@ file
- , qeDistDir :: DistDir proj_type
+ , qeDistDir :: !(DistDir proj_type)
-- ^ Field accessor for 'QueryEnv'. Defines path to the @dist/@ or
-- @dist-newstyle/@ directory, aka. /builddir/ in Cabal terminology.
- , qeCacheRef :: IORef cache
+ , qeCacheRef :: !(IORef cache)
-- ^ Cache for query results, only accessible when type parameter @cache@ is
-- instantiated and not forall quantified.
}