Some more ByteString related chandes in GF2

2008-04-17 13:22:10 +00:00
parent 4a8346086d
commit 1858db942c
2 changed files with 6 additions and 4 deletions
--- 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