X-Git-Url: http://wien.tomnetworks.com/gitweb/?a=blobdiff_plain;f=TestGen.hs;h=900a422dd5778892483b970457018cfd32094ad0;hb=22d4ad212c27135cea11b577c62f7d133d392d4e;hp=69786e995f988129d64905da5aace54b351d769b;hpb=e9f82ee018d11b66f73e5e97591a6de474e76848;p=hs-java.git

diff --git a/TestGen.hs b/TestGen.hs
index 69786e9..900a422 100644
--- a/TestGen.hs
+++ b/TestGen.hs
@@ -47,9 +47,7 @@ test = do
 
   return ()
 
-testClass ::  Class Direct
-testClass = generate "Test" test
-
 main = do
+  testClass <- generate [] "Test" test
   B.writeFile "Test.class" (encodeClass testClass)