dtd.xml

[hxt-compile.git] / Main.hs

diff --git a/Main.hs b/Main.hs
index 296b252f881547b713b0e719c74ffa7ab5033c59..15482e2cd41ec821cc558bc7631979925a27a000 100644 (file)
--- a/Main.hs
+++ b/Main.hs
@@ -8,13 +8,14 @@ import qualified System.IO.UTF8 as Uio
 
 
 main :: IO ()
-main = do let fpath = "examples/utf8.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)
                                              ]
                             >>>