X-Git-Url: http://wien.tomnetworks.com/gitweb/?p=hs-java.git;a=blobdiff_plain;f=TestGen.hs;h=31e71c0676ae0255d345a46d8ac1d6a502dd1dd5;hp=f21912c58e863481124923c72bbb70eddac2dea5;hb=4174461dc7cd2b14183917db3cd11219a37e804c;hpb=368ce628bdf8a7fa772a6860aed12f00baea3906

diff --git a/TestGen.hs b/TestGen.hs
index f21912c..31e71c0 100644
--- a/TestGen.hs
+++ b/TestGen.hs
@@ -11,7 +11,7 @@ import Java.ClassPath
 import qualified Java.Lang
 import qualified Java.IO
 
-test :: Generate ()
+test :: GenerateIO ()
 test = do
   withClassPath $ do
       -- Add current directory (with Hello.class) to ClassPath
@@ -63,6 +63,6 @@ test = do
 
 main :: IO ()
 main = do
-  testClass <- generate [] "Test" test
+  testClass <- generateIO [] "Test" test
   B.writeFile "Test.class" (encodeClass testClass)