From: Simon Marlow <marlowsd@gmail.com>
Date: Tue, 24 May 2011 12:42:16 +0000 (+0100)
Subject: fix warnings
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;ds=sidebyside;h=ec2712d6a76956ac7a6b2207a67388ca6ab95c0d;p=ghc-hetmet.git

fix warnings
---

diff --git a/utils/genprimopcode/Main.hs b/utils/genprimopcode/Main.hs
index d9bfd21..14f0834 100644
--- a/utils/genprimopcode/Main.hs
+++ b/utils/genprimopcode/Main.hs
@@ -141,6 +141,7 @@ gen_hs_source (Info defaults entries) =
      where opt (OptionFalse n)	  = n ++ " = False"
            opt (OptionTrue n)	  = n ++ " = True"
 	   opt (OptionString n v) = n ++ " = { " ++ v ++ "}"
+           opt (OptionInteger n v) = n ++ " = " ++ show v
 
 	   hdr s@(Section {})			 = sec s
 	   hdr (PrimOpSpec { name = n })	 = wrapOp n ++ ","
@@ -409,7 +410,8 @@ gen_latex_doc (Info defaults entries)
 	       Just (OptionTrue _) -> if_true
 	       Just (OptionFalse _) -> if_false
 	       Just (OptionString _ _) -> error "String value for boolean option"
-	       Nothing -> ""
+               Just (OptionInteger _ _) -> error "Integer value for boolean option"
+               Nothing -> ""
 	   
 	   mk_strictness o = 
 	     case lookup_attrib "strictness" o of