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/compiler/GF/Grammar/Macros.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src/compiler/GF/Grammar') 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] | -- cgit v1.2.3