GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-04-09 04:59:31 -06:00
Code Issues Packages Projects Releases Wiki Activity

removed spurious empty warnings

Browse Source
This commit is contained in:
aarne
2012-06-25 14:47:09 +00:00
parent abb1aedd3d
commit af4886dace
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -95,7 +95,7 @@ checkMapRecover f mp = do
ss@(_:_) -> checkError (text (unlines ss))
_ -> do
let (kx,ss) = unzip [((k,x),s) | (k, Ok (x,s)) <- xs]
checkWarn (text (unlines ss))
if not (all null ss) then checkWarn (text (unlines ss)) else return ()
return (Map.fromAscList kx)
checkErr :: Err a -> Check a