Idris2/tests/node/reg002/Issue1843.idr

8 lines
141 B
Idris
Raw Normal View History

test : () -> IO ()
test () = putStrLn "a test"
test _ = putStrLn "oopsie"
main : IO ()
main = do test ()
putStrLn "foo" >>= test