make it work without hexpat

git-svn-id: https://svn-agbkb.informatik.uni-bremen.de/Hets/trunk@17173 cec4b9c1-7d33-0410-9eda-942365e851bb
spechub · Aug 10, 2012 · 692f7fa · 692f7fa
1 parent a6af870
commit 692f7fa
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/Common/XmlParser.hs b/Common/XmlParser.hs
@@ -21,7 +21,7 @@ import qualified Data.ByteString.Lazy as BS
 #ifdef HEXPAT
 import qualified Common.XmlExpat as XE
 #else
-import qualified Data.ByteString.Lazy.Char8 as Char8
+import Data.ByteString.Lazy.UTF8
 #endif
 
 readXmlFile :: FilePath -> IO BS.ByteString
@@ -43,7 +43,7 @@ instance XmlParseable BS.ByteString where
 -- 169MB on Basic/Algebra_I
 #else
 instance XmlParseable BS.ByteString where
-    parseXml s = case parseXMLDoc $ Char8.unpack s of
+    parseXml s = case parseXMLDoc $ toString s of
                    Just x -> Right x
                    _ -> Left "parseXMLDoc: parse error"