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

diff --git a/Main.hs b/Main.hs
index 8466f76..3874914 100644
--- a/Main.hs
+++ b/Main.hs
@@ -19,6 +19,8 @@ main = do let fpath = "examples/tiny.xml"
                                              ]
                             >>>
                             ( constA (Module "Foo")
+                              &&&
+                              constA []
                               &&&
                               constA (HsIdent "foo")
                               &&&