examples/passing/ExternData.purs · rowtype-yoga/purescript-native

git.iko.soy/rowtype-yoga/purescript-native

on 8030607 help sign in

13 lines 361 B history raw

1module Main where

3 foreign import data IO :: * -> *

5 foreign import bind "function bind() {}" :: forall a b. IO a -> (a -> IO b) -> IO b

7 foreign import showMessage "function showMessage() {}" :: String -> IO { }

9 foreign import prompt "function prompt() {}" :: IO String

11 test _ = prompt `bind` \s -> showMessage s

13 main = Debug.Trace.trace "Done"