From ec2712d6a76956ac7a6b2207a67388ca6ab95c0d Mon Sep 17 00:00:00 2001 From: Simon Marlow Date: Tue, 24 May 2011 13:42:16 +0100 Subject: [PATCH] fix warnings --- utils/genprimopcode/Main.hs | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) 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 -- 1.7.10.4