git.iko.soy/rowtype-yoga/purescript-native
on 558cd4e help sign in
13 lines 327 B history raw
1foreign import data IO :: * -> *
3foreign import fmap :: forall a b. IO a -> (a -> b) -> IO b
5foreign import ret :: forall a. a -> IO a
7foreign import bind :: forall a b. IO a -> (a -> IO b) -> IO b
9foreign import showMessage :: String -> IO { }
11foreign import prompt :: IO String
13main = prompt `bind` \s -> showMessage s