diff options
| author | peb <unknown> | 2005-02-09 11:46:54 +0000 |
|---|---|---|
| committer | peb <unknown> | 2005-02-09 11:46:54 +0000 |
| commit | a0d412986305d4b45e82afde62ea48f1b06edb9d (patch) | |
| tree | bca6f55ef01469442ef55f6bd0caa511e147350f /src/GF/Infra/CheckM.hs | |
| parent | 4fd0c636f8590bf800715f2598e54ccc22c99b90 (diff) | |
"Committed_by_peb"
Diffstat (limited to 'src/GF/Infra/CheckM.hs')
| -rw-r--r-- | src/GF/Infra/CheckM.hs | 4 |
1 files changed, 2 insertions, 2 deletions
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)) |