From 6de94f53002263878bfb03e31d26caefa4872f20 Mon Sep 17 00:00:00 2001 From: krasimir Date: Wed, 20 May 2009 17:05:58 +0000 Subject: fix the generation of warnings in CheckGrammar. They are printed even in quiet mode and the prefix "Warning" is added automatically --- src/GF/Infra/CheckM.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src/GF/Infra') diff --git a/src/GF/Infra/CheckM.hs b/src/GF/Infra/CheckM.hs index 251ed2b8b..ab6052a9e 100644 --- a/src/GF/Infra/CheckM.hs +++ b/src/GF/Infra/CheckM.hs @@ -35,7 +35,7 @@ checkCond s b = if b then return () else checkError s -- | warnings should be reversed in the end checkWarn :: String -> Check () -checkWarn s = updateSTM (\ (cont,msg) -> (cont, s:msg)) +checkWarn s = updateSTM (\ (cont,msg) -> (cont, ("Warning: "++s):msg)) checkUpdate :: Decl -> Check () checkUpdate d = updateSTM (\ (cont,msg) -> (d:cont, msg)) -- cgit v1.2.3