diff options
| author | krasimir <krasimir@chalmers.se> | 2009-05-20 17:05:58 +0000 |
|---|---|---|
| committer | krasimir <krasimir@chalmers.se> | 2009-05-20 17:05:58 +0000 |
| commit | 6de94f53002263878bfb03e31d26caefa4872f20 (patch) | |
| tree | 9cdbf2abea5083a50ee705c4298f8eeea7c86dec /src/GF/Infra/CheckM.hs | |
| parent | 880665ad0fb52dbbfdbe8e0300806fd90a8ca0b8 (diff) | |
fix the generation of warnings in CheckGrammar. They are printed even in quiet mode and the prefix "Warning" is added automatically
Diffstat (limited to 'src/GF/Infra/CheckM.hs')
| -rw-r--r-- | src/GF/Infra/CheckM.hs | 2 |
1 files changed, 1 insertions, 1 deletions
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)) |