[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