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

fix a warning in the compiler

Browse Source
This commit is contained in:
kr.angelov committed 2013-09-23 09:20:55 +00:00
1 parent 14061ef4df
commit 54c3924a11
1 file changed
+1 -1
Download Patch File Download Diff File Expand all files Collapse all files
src/compiler/GF/Compile/GeneratePMCFG.hs
+1 -1
View File
@@ -578,7 +578,7 @@ getPMCFG :: PMCFGEnv -> PMCFG
getPMCFG (PMCFGEnv prodSet funSet) =
PMCFG (optimize prodSet) (mkSetArray funSet)
where
optimize ps = Map.foldWithKey ff [] (Map.fromListWith (++) [((fid,funid),[args]) | (Production fid funid args) <- Set.toList ps])
optimize ps = Map.foldrWithKey ff [] (Map.fromListWith (++) [((fid,funid),[args]) | (Production fid funid args) <- Set.toList ps])
where
ff :: (FId,FunId) -> [[[FId]]] -> [Production] -> [Production]
ff (fid,funid) xs prods