From 54bad48d9ef8a30652da077e98d5cf4f1bbf32f9 Mon Sep 17 00:00:00 2001
From: Glen Whitney <glen@studioinfinity.org>
Date: Fri, 5 Feb 2021 20:55:17 -0800
Subject: [PATCH] fix: correct IO types in Haskell generation

---
 trans/haskell.str | 10 +++-------
 1 file changed, 3 insertions(+), 7 deletions(-)

diff --git a/trans/haskell.str b/trans/haskell.str
index 33ec3e0..ddddbca 100644
--- a/trans/haskell.str
+++ b/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")