msyds/gf-core
1
0
Fork 0
forked from GitHub/gf-core
Code Pull Requests Activity

warnings shown in checkMapRecover

Browse Source
This commit is contained in:
aarne
2012-06-25 11:49:50 +00:00
parent d15e0f775d
commit 98a967a173
1 changed files with 4 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
src/compiler/GF/Infra/CheckM.hs
View File

@@ -70,7 +70,10 @@ checkMapRecover f mp = do
let xs = map (\ (k,v) -> (k,runCheck (f k v))) (Map.toList mp) let xs = map (\ (k,v) -> (k,runCheck (f k v))) (Map.toList mp)
case [s | (_,Bad s) <- xs] of case [s | (_,Bad s) <- xs] of
ss@(_:_) -> checkError (text (unlines ss)) ss@(_:_) -> checkError (text (unlines ss))
_ -> return (Map.fromAscList [(k,x) | (k, Ok (x,_)) <- xs]) _ -> do
let (kx,ss) = unzip [((k,x),s) | (k, Ok (x,s)) <- xs]
checkWarn (text (unlines ss))
return (Map.fromAscList kx)
checkErr :: Err a -> Check a checkErr :: Err a -> Check a
checkErr (Ok x) = return x checkErr (Ok x) = return x