diff options
Diffstat (limited to 'src/GF/Infra')
| -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)) |