mirror of
https://github.com/idris-lang/Idris2.git
synced 2024-12-25 12:42:02 +03:00
34 lines
560 B
Idris
34 lines
560 B
Idris
|
namespace A
|
||
|
|
public export
|
||
|
|
pure : a -> IO a
|
||
|
|
pure x = io_pure x
|
||
|
|
|
||
|
|
public export
|
||
|
|
(<*>) : IO (a -> b) -> IO a -> IO b
|
||
|
|
(<*>) = (<*>) @{%search}
|
||
|
|
|
||
|
|
namespace B
|
||
|
|
public export
|
||
|
|
pure : a -> IO a
|
||
|
|
pure x = io_pure x
|
||
|
|
|
||
|
|
public export
|
||
|
|
(<*>) : IO (a -> b) -> IO a -> IO b
|
||
|
|
(<*>) = (<*>) @{%search}
|
||
|
|
|
||
|
|
testFailing1 : IO ()
|
||
|
|
testFailing1 = pure ()
|
||
|
|
|
||
|
|
testSucceeding1 : IO ()
|
||
|
|
testSucceeding1 = A.do
|
||
|
|
pure ()
|
||
|
|
|
||
|
|
testFailing2 : (a -> b) -> IO a -> IO b
|
||
|
|
testFailing2 f a =
|
||
|
|
[| f a |]
|
||
|
|
|
||
|
|
testSucceeding2 : (a -> b) -> IO a -> IO b
|
||
|
|
testSucceeding2 f a = B.do
|
||
|
|
[| f a |]
|
||
|
|
|