Commit 7f3ce06a authored by sven.panne@aedion.de's avatar sven.panne@aedion.de
Browse files

Warning police: Don't rely on defaulting

parent be18544c
......@@ -371,7 +371,7 @@ gen_primop_list (Info _ entries)
gen_primop_tag :: Info -> String
gen_primop_tag (Info _ entries)
= unlines (max_def : zipWith f primop_entries [1..])
= unlines (max_def : zipWith f primop_entries [1 :: Int ..])
where
primop_entries = filter is_primop entries
f i n = "tagOf_PrimOp " ++ cons i
......
Supports Markdown
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