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

feat: sequencing of expressions with newline to same indent #11

Merged
glen merged 2 commits from soft_sequence into main 2021-02-06 05:11:42 +00:00
Conversation 0 Commits 2 Files Changed 10 +3 -7
1 changed files with 3 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files
Showing only changes of commit 54bad48d9e - Show all commits

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")