glen/fostr
1
0
Fork 1
Code Issues 4 Pull Requests Projects Releases Wiki Activity

fix: correct IO types in Haskell generation
All checks were successful
continuous-integration/drone/push Build is passing
Details
continuous-integration/drone/pr Build is passing
Details

Browse Source
This commit is contained in:
Glen Whitney 2021-02-05 20:55:17 -08:00
parent 5d81316ce2
commit 54bad48d9e
1 changed files with 3 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
trans/haskell.str
View File

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