Extraction from streams #25
@ -34,7 +34,9 @@ rules
|
||||
putStr(d)
|
||||
return s
|
||||
|
||||
emit s = getLine
|
||||
emit s = do
|
||||
l <- getLine
|
||||
return (l ++ "\n")
|
||||
|
||||
main = do
|
||||
[<Preactions>()]return [val]]
|
||||
|
Loading…
Reference in New Issue
Block a user