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