X-Git-Url: http://git.cielonegro.org/gitweb.cgi?p=hxt-compile.git;a=blobdiff_plain;f=Main.hs;h=15482e2cd41ec821cc558bc7631979925a27a000;hp=8466f76542ed536646388fa60c09700d69ca8bdc;hb=3128cde83c431e117badabba87cbcd9c7de26b52;hpb=5ccdec1d86b750444704312526a44eb68972027b

diff --git a/Main.hs b/Main.hs
index 8466f76..15482e2 100644
--- a/Main.hs
+++ b/Main.hs
@@ -8,17 +8,20 @@ import qualified System.IO.UTF8 as Uio
 
 
 main :: IO ()
-main = do let fpath = "examples/tiny.xml"
+main = do let fpath = "examples/dtd.xml"
 
           [hsMod] <- runX ( setErrorMsgHandler False fail
                             >>>
                             constA fpath
                             >>>
                             readFromDocument [ (a_validate        , v_0)
+                                             , (a_canonicalize    , v_0)
                                              , (a_check_namespaces, v_1)
                                              ]
                             >>>
                             ( constA (Module "Foo")
+                              &&&
+                              constA []
                               &&&
                               constA (HsIdent "foo")
                               &&&