Skip to content

GitLab

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

Fix warnings from primops.txt.pp

parent 8229ae19
Hide whitespace changes
Inline Side-by-side
compiler/prelude/primops.txt.pp
View file @ 493d09b4
...@@ -1240,7 +1240,7 @@ primop CatchOp "catch#" GenPrimOp ...@@ -1240,7 +1240,7 @@ primop CatchOp "catch#" GenPrimOp
primop RaiseOp "raise#" GenPrimOp primop RaiseOp "raise#" GenPrimOp
a -> b a -> b
with with
strictness = { \ arity -> mkStrictSig (mkTopDmdType [lazyDmd] BotRes) } strictness = { \ _arity -> mkStrictSig (mkTopDmdType [lazyDmd] BotRes) }
-- NB: result is bottom -- NB: result is bottom
out_of_line = True out_of_line = True
...@@ -1660,7 +1660,7 @@ section "Tag to enum stuff" ...@@ -1660,7 +1660,7 @@ section "Tag to enum stuff"
primop DataToTagOp "dataToTag#" GenPrimOp primop DataToTagOp "dataToTag#" GenPrimOp
a -> Int# a -> Int#
with with
strictness = { \ arity -> mkStrictSig (mkTopDmdType [seqDmd] TopRes) } strictness = { \ _arity -> mkStrictSig (mkTopDmdType [seqDmd] TopRes) }
-- dataToTag# must have an evaluated argument -- dataToTag# must have an evaluated argument
primop TagToEnumOp "tagToEnum#" GenPrimOp 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