From 4c73735de917e2811f1ce75561397dc875365f94 Mon Sep 17 00:00:00 2001
From: krasimir <krasimir@chalmers.se>
Date: Thu, 17 Apr 2008 13:22:10 +0000
Subject: Some more ByteString related chandes in GF2

---
 src/GF/Compile/PGrammar.hs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'src/GF/Compile/PGrammar.hs')

diff --git a/src/GF/Compile/PGrammar.hs b/src/GF/Compile/PGrammar.hs
index 1c6f0b411..e4e60d623 100644
--- a/src/GF/Compile/PGrammar.hs
+++ b/src/GF/Compile/PGrammar.hs
@@ -29,10 +29,11 @@ import GF.Grammar.Macros
 import GF.Grammar.MMacros
 
 import GF.Data.Operations
+import qualified Data.ByteString.Char8 as BS
 
 pTerm :: String -> Err Term
 pTerm s = do
-  e <- err2err $ pExp $ myLexer s
+  e <- err2err $ pExp $ myLexer (BS.pack s)
   transExp e
 
 pTrm :: String -> Term
-- 
cgit v1.2.3