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/compiler/GF/Grammar | |
| 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/compiler/GF/Grammar')
| -rw-r--r-- | src/compiler/GF/Grammar/Macros.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/compiler/GF/Grammar/Macros.hs b/src/compiler/GF/Grammar/Macros.hs index 011e5be9d..00b5dbb20 100644 --- a/src/compiler/GF/Grammar/Macros.hs +++ b/src/compiler/GF/Grammar/Macros.hs @@ -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] | |