trans/haskell.str

@@ -17,19 +17,15 @@ rules
   hs: TopLevel((c,p)) -> $[import System.IO
   data IOStream = StdIO
 
-  stdio :: IO IOStream
-  stdio = return StdIO
-
-  gets :: Show b => IO a -> b -> IO a
+  gets :: Show b => a -> b -> IO a
   gets s d = do
-    temp <- s
     putStr(show d)
-    return temp
+    return s
 
   main = do
     [p]return [c]]
 
-  hs: Stream() -> ("stdio", "")
+  hs: Stream() -> ("StdIO", "")
   hs: Int(x) -> (x, "")
   hs: Sum( (c, p), (d, q)) -> ($[([c] + [d])], <conc-strings>(p,q))
   hs: Gets((c, p), (d, q)) -> <hsget>(c,d,<conc-strings>(p,q),<newname>"fosgt")