[commit: ghc] wip/T14626: WIP: some more de-strictifying (57a57f2)
git at git.haskell.org
git at git.haskell.org
Fri Jan 12 14:42:26 UTC 2018
Repository : ssh://git@git.haskell.org/ghc
On branch : wip/T14626
Link : http://ghc.haskell.org/trac/ghc/changeset/57a57f2f8cef2ea67588edd1f09f73981e86c889/ghc
>---------------------------------------------------------------
commit 57a57f2f8cef2ea67588edd1f09f73981e86c889
Author: Gabor Greif <ggreif at gmail.com>
Date: Fri Jan 12 15:41:40 2018 +0100
WIP: some more de-strictifying
>---------------------------------------------------------------
57a57f2f8cef2ea67588edd1f09f73981e86c889
compiler/codeGen/StgCmmClosure.hs | 2 +-
compiler/utils/Outputable.hs | 2 +-
2 files changed, 2 insertions(+), 2 deletions(-)
diff --git a/compiler/codeGen/StgCmmClosure.hs b/compiler/codeGen/StgCmmClosure.hs
index f33a9f3..e319548 100644
--- a/compiler/codeGen/StgCmmClosure.hs
+++ b/compiler/codeGen/StgCmmClosure.hs
@@ -762,7 +762,7 @@ data ClosureInfo
-- code for ticky and profiling, and we could pass the information
-- around separately, but it doesn't do much harm to keep it here.
- closureLFInfo :: !LambdaFormInfo, -- NOTE: not an LFCon
+ closureLFInfo :: LambdaFormInfo, -- NOTE: not an LFCon
-- this tells us about what the closure contains: it's right-hand-side.
-- the rest is just an unpacked CmmInfoTable.
diff --git a/compiler/utils/Outputable.hs b/compiler/utils/Outputable.hs
index 3050fa1..d9580a8 100644
--- a/compiler/utils/Outputable.hs
+++ b/compiler/utils/Outputable.hs
@@ -321,7 +321,7 @@ code (either C or assembly), or generating interface files.
newtype SDoc = SDoc { runSDoc :: SDocContext -> Doc }
data SDocContext = SDC
- { sdocStyle :: !PprStyle
+ { sdocStyle :: PprStyle
, sdocLastColour :: !Col.PprColour
-- ^ The most recently used colour. This allows nesting colours.
, sdocDynFlags :: !DynFlags
More information about the ghc-commits
mailing list