GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-05-17 23:22:51 -06:00
Code Issues Packages Projects Releases Wiki 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 9a58afe121
commit 1c86783e17
4 changed files with 18 additions and 13 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
src/compiler/GF/Grammar/Macros.hs
View File

@@ -551,7 +551,7 @@ strsFromTerm t = case t of
d0 <- strsFromTerm d
v0 <- mapM (strsFromTerm . fst) vs
c0 <- mapM (strsFromTerm . snd) vs
let vs' = zip v0 c0
--let vs' = zip v0 c0
return [strTok (str2strings def) vars |
def <- d0,
vars <- [[(str2strings v, map sstr c) | (v,c) <- zip vv c0] |