From 7f3ce06a1a2840c52d6f5bf1bcd09cffe1f80d28 Mon Sep 17 00:00:00 2001 From: "sven.panne@aedion.de" Date: Wed, 14 Mar 2007 12:36:08 +0000 Subject: [PATCH] Warning police: Don't rely on defaulting --- utils/genprimopcode/Main.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/utils/genprimopcode/Main.hs b/utils/genprimopcode/Main.hs index 4a4aac9..5bc6ade 100644 --- a/utils/genprimopcode/Main.hs +++ b/utils/genprimopcode/Main.hs @@ -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 -- 1.7.10.4