X-Git-Url: http://git.cielonegro.org/gitweb.cgi?p=hxt-compile.git;a=blobdiff_plain;f=Main.hs;fp=Main.hs;h=296b252f881547b713b0e719c74ffa7ab5033c59;hp=387491488ef9dc6f275e7abea59e54d4a08558a6;hb=13dc5a370f4d7d3223937346fc63ce94c8aa85a8;hpb=107cd29639a348397eef214bd7e8e6eaa0d9f701

diff --git a/Main.hs b/Main.hs
index 3874914..296b252 100644
--- a/Main.hs
+++ b/Main.hs
@@ -8,7 +8,7 @@ import qualified System.IO.UTF8 as Uio
 
 
 main :: IO ()
-main = do let fpath = "examples/tiny.xml"
+main = do let fpath = "examples/utf8.xml"
 
           [hsMod] <- runX ( setErrorMsgHandler False fail
                             >>>