Enable -O2 and unpack a field that doesn't get unpacked by default
commitf979db00e60362e4a31c4f68ad6948378f939b92
authorAndrzej Rybczak <andrzej@rybczak.net>
dateSat 19 Jun 2021, 00:54 (5 years ago)
parent134f3c6
effectful.cabal+2
@@ -48,6 +48,8 @@ common language
4848library
4949 import: language
5050
51+ ghc-options: -O2
52+
5153 build-depends: base >= 4.12 && <5
5254 , containers
5355 , exceptions
src/Effectful/Internal/Env.hs+1−1
@@ -66,7 +66,7 @@ globalFid :: ForkId
6666globalFid = ForkId 0 0
6767
6868-- | Local forks of the environment.
69−data Forks = Forks ForkId (IORef EnvRef) Forks | NoFork
69+data Forks = Forks {-# UNPACK #-} ForkId (IORef EnvRef) Forks | NoFork
7070
7171data EnvRef = EnvRef
7272 { _capacity :: Int