filterOutRootAttrs

[hxt-compile.git] / Main.hs

diff --git a/Main.hs b/Main.hs
index 8466f76542ed536646388fa60c09700d69ca8bdc..296b252f881547b713b0e719c74ffa7ab5033c59 100644 (file)
--- 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
                             >>>
@@ -19,6 +19,8 @@ main = do let fpath = "examples/tiny.xml"
                                              ]
                             >>>
                             ( constA (Module "Foo")
+                              &&&
+                              constA []
                               &&&
                               constA (HsIdent "foo")
                               &&&