[commit: ghc] master: llvmGen: Add strictness to metadata fields (0be38a2)

[git at git.haskell.org]

Repository : ssh://git@git.haskell.org/ghc

On branch  : master
Link       : http://ghc.haskell.org/trac/ghc/changeset/0be38a22059ef761ff0f5487e88c18a9fd6df53b/ghc

>---------------------------------------------------------------

commit 0be38a22059ef761ff0f5487e88c18a9fd6df53b
Author: Ben Gamari <ben at smart-cactus.org>
Date:   Sat Jun 18 12:57:29 2016 +0200

    llvmGen: Add strictness to metadata fields


>---------------------------------------------------------------

0be38a22059ef761ff0f5487e88c18a9fd6df53b
 compiler/llvmGen/Llvm/MetaData.hs | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/compiler/llvmGen/Llvm/MetaData.hs b/compiler/llvmGen/Llvm/MetaData.hs
index 3bdcd60..6f3ced5 100644
--- a/compiler/llvmGen/Llvm/MetaData.hs
+++ b/compiler/llvmGen/Llvm/MetaData.hs
@@ -65,9 +65,9 @@ instance Outputable MetaId where
     ppr (MetaId n) = char '!' <> int n
 
 -- | LLVM metadata expressions
-data MetaExpr = MetaStr LMString
-              | MetaNode MetaId
-              | MetaVar LlvmVar
+data MetaExpr = MetaStr !LMString
+              | MetaNode !MetaId
+              | MetaVar !LlvmVar
               | MetaStruct [MetaExpr]
               deriving (Eq)
 
@@ -87,7 +87,7 @@ data MetaAnnot = MetaAnnot LMString MetaExpr
 data MetaDecl
     -- | Named metadata. Only used for communicating module information to
     -- LLVM. ('!name = !{ [!<n>] }' form).
-    = MetaNamed LMString [MetaId]
+    = MetaNamed !LMString [MetaId]
     -- | Metadata node declaration.
     -- ('!0 = metadata !{ <metadata expression> }' form).
-    | MetaUnnamed MetaId MetaExpr
+    | MetaUnnamed !MetaId !MetaExpr