Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- data Args a = Action (IO a) | Param a
- main = putStrLn $ message "Hi: "
- message :: String -> String
- message pre = pre ++ res
- where
- [Param res] = noMonad
- noMonad = take 1 arg
- where
- arg = [Param "foo", Action (return "" >> getLine)]
Add Comment
Please, Sign In to add comment