From 1c86783e172bf1922b32e5503bc3be1f66f240b5 Mon Sep 17 00:00:00 2001 From: hallgren Date: Mon, 31 Aug 2015 12:22:13 +0000 Subject: GF.Infra.SIO: The SIO monad now supports putStr in addition to putStrLn Also included some unrelated minor changes. --- src/runtime/haskell/PGF/Parse.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src/runtime/haskell') diff --git a/src/runtime/haskell/PGF/Parse.hs b/src/runtime/haskell/PGF/Parse.hs index 2cfd91ca5..0b435fc28 100644 --- a/src/runtime/haskell/PGF/Parse.hs +++ b/src/runtime/haskell/PGF/Parse.hs @@ -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) -- cgit v1.2.3