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

GF.Infra.SIO: The SIO monad now supports putStr in addition to putStrLn

Browse Source 
Also included some unrelated minor changes.
This commit is contained in:
hallgren
2015-08-31 12:22:13 +00:00
parent 5cd0175051
commit e76fb3d9a1
4 changed files with 18 additions and 13 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
src/runtime/haskell/PGF/Parse.hs
View File

@@ -517,7 +517,7 @@ type Continuation = TrieMap.TrieMap Token ActiveSet
getContinuationInfo :: ParseState -> Map.Map [Token] [(FunId, CId, String)]
getContinuationInfo pstate = Map.map (map f . Set.toList) contMap
where
PState abstr concr chart cont = pstate
PState _abstr concr _chart cont = pstate
contMap = Map.fromList (TrieMap.toList cont) -- always get [([], _::ActiveSet)]
f :: Active -> (FunId,CId,String)
f (Active int dotpos funid seqid pargs ak) = (funid, cid, seq)