GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-04-23 19:42:50 -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)) ss@(_:_) -> checkError (text (unlines ss))
_ -> do _ -> do
let (kx,ss) = unzip [((k,x),s) | (k, Ok (x,s)) <- xs] 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) return (Map.fromAscList kx)
checkErr :: Err a -> Check a checkErr :: Err a -> Check a