diff options
| author | Ian Lynagh <igloo@earth.li> | 2008-03-29 14:26:37 +0000 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2008-03-29 14:26:37 +0000 |
| commit | 493d09b47e4d4faec4f0696d071e3b7f4e7b84ea (patch) | |
| tree | c832ec2e38362cc74137f80d080cd9699f8563d9 /compiler/prelude | |
| parent | 8229ae19d86dddc08f40f4d934bf942e0bdfe99c (diff) | |
| download | haskell-493d09b47e4d4faec4f0696d071e3b7f4e7b84ea.tar.gz | |
Fix warnings from primops.txt.pp
Diffstat (limited to 'compiler/prelude')
| -rw-r--r-- | compiler/prelude/primops.txt.pp | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/compiler/prelude/primops.txt.pp b/compiler/prelude/primops.txt.pp index 335a717d45..57abb7d3c7 100644 --- a/compiler/prelude/primops.txt.pp +++ b/compiler/prelude/primops.txt.pp @@ -1240,7 +1240,7 @@ primop CatchOp "catch#" GenPrimOp primop RaiseOp "raise#" GenPrimOp a -> b with - strictness = { \ arity -> mkStrictSig (mkTopDmdType [lazyDmd] BotRes) } + strictness = { \ _arity -> mkStrictSig (mkTopDmdType [lazyDmd] BotRes) } -- NB: result is bottom out_of_line = True @@ -1660,7 +1660,7 @@ section "Tag to enum stuff" primop DataToTagOp "dataToTag#" GenPrimOp a -> Int# with - strictness = { \ arity -> mkStrictSig (mkTopDmdType [seqDmd] TopRes) } + strictness = { \ _arity -> mkStrictSig (mkTopDmdType [seqDmd] TopRes) } -- dataToTag# must have an evaluated argument primop TagToEnumOp "tagToEnum#" GenPrimOp |