diff options
| author | hallgren <hallgren@chalmers.se> | 2015-08-31 12:22:13 +0000 |
|---|---|---|
| committer | hallgren <hallgren@chalmers.se> | 2015-08-31 12:22:13 +0000 |
| commit | 1c86783e172bf1922b32e5503bc3be1f66f240b5 (patch) | |
| tree | ac09d4b26b94d96147c7d9190c8b6e288db3f17f /src/runtime/haskell/PGF | |
| parent | 9a58afe1214ae084a89e0a4683ca4bf174225065 (diff) | |
GF.Infra.SIO: The SIO monad now supports putStr in addition to putStrLn
Also included some unrelated minor changes.
Diffstat (limited to 'src/runtime/haskell/PGF')
| -rw-r--r-- | src/runtime/haskell/PGF/Parse.hs | 2 |
1 files changed, 1 insertions, 1 deletions
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)
|