Make Expr and Env strict

mfussenegger · Feb 17, 2019 · dd9a560 · dd9a560
1 parent 5bfae80
commit dd9a560
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 6 deletions.
diff --git a/src/Expr.hs b/src/Expr.hs
@@ -16,10 +16,10 @@ import           Text.Parsec.Text  (Parser)
 -- $setup
 -- >>> :set -XOverloadedStrings
 
-data Expr = IntLiteral Integer
-          | DoubleLiteral Scientific
-          | StringLiteral Text
-          | FunctionCall { fcName :: Text, fcArgs :: [Expr] }
+data Expr = IntLiteral !Integer
+          | DoubleLiteral !Scientific
+          | StringLiteral !Text
+          | FunctionCall { fcName :: !Text, fcArgs :: ![Expr] }
           deriving (Show, Eq)
 
 

diff --git a/src/Fake.hs b/src/Fake.hs
@@ -71,8 +71,8 @@ runFakeT seed fake = do
 type State a = StateT Env IO a
 
 data Env = Env
-  { envStdGen :: StdGen
-  , envFileCache :: M.HashMap T.Text (V.Vector Value) }
+  { envStdGen :: !StdGen
+  , envFileCache :: !(M.HashMap T.Text (V.Vector Value)) }
 
 instance RandomGen Env where
   next env = (x, env { envStdGen = g' })