From a0d412986305d4b45e82afde62ea48f1b06edb9d Mon Sep 17 00:00:00 2001 From: peb Date: Wed, 9 Feb 2005 11:46:54 +0000 Subject: "Committed_by_peb" --- src/GF/Infra/CheckM.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'src/GF/Infra/CheckM.hs') diff --git a/src/GF/Infra/CheckM.hs b/src/GF/Infra/CheckM.hs index 3794cc903..8f0657e27 100644 --- a/src/GF/Infra/CheckM.hs +++ b/src/GF/Infra/CheckM.hs @@ -19,7 +19,7 @@ import Grammar import Ident import PrGrammar --- the strings are non-fatal warnings +-- | the strings are non-fatal warnings type Check a = STM (Context,[String]) a checkError :: String -> Check a @@ -28,7 +28,7 @@ checkError = raise checkCond :: String -> Bool -> Check () checkCond s b = if b then return () else checkError s --- warnings should be reversed in the end +-- | warnings should be reversed in the end checkWarn :: String -> Check () checkWarn s = updateSTM (\ (cont,msg) -> (cont, s:msg)) -- cgit v1.2.3