use ByteString internally in Ident, CId and Label

2008-05-21 13:10:54 +00:00
parent e8bbd458cb
commit 314f5cc5e7
65 changed files with 6275 additions and 6432 deletions
--- a/src-3.0/GF/Devel/ReadFiles.hs
+++ b/src-3.0/GF/Devel/ReadFiles.hs
@@ -185,7 +185,7 @@ importsOfModule (MModule _ typ body) = modType typ (modBody body [])
    opens NoOpens     xs = xs
    opens (OpenIn os) xs = foldr open xs os

-    modName (PIdent (_,s)) = s
+    modName (PIdent (_,s)) = BS.unpack s


 -- | options can be passed to the compiler by comments in @--#@, in the main file