Commit 493d09b4 authored by Ian Lynagh's avatar Ian Lynagh
Browse files

Fix warnings from primops.txt.pp

parent 8229ae19
......@@ -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
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment