From: sven.panne@aedion.de <unknown>
Date: Wed, 14 Mar 2007 12:36:08 +0000 (+0000)
Subject: Warning police: Don't rely on defaulting
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=7f3ce06a1a2840c52d6f5bf1bcd09cffe1f80d28

Warning police: Don't rely on defaulting
---

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