mirror of
https://github.com/edwinb/Idris2-boot.git
synced 2024-12-22 04:11:31 +03:00
16 lines
314 B
Idris
16 lines
314 B
Idris
|
export
|
||
|
|
record Core t where
|
||
|
|
constructor MkCore
|
||
|
|
runCore : IO (Either String t)
|
||
|
|
|
||
|
|
pure : a -> Core a
|
||
|
|
pure x = MkCore (pure (pure x))
|
||
|
|
|
||
|
|
export
|
||
|
|
(<*>) : Core (a -> b) -> Core a -> Core b
|
||
|
|
(<*>) (MkCore f) (MkCore a) = MkCore [| f `Prelude.(<*>)` a |]
|
||
|
|
|
||
|
|
addm : Maybe Int -> Maybe Int -> Maybe Int
|
||
|
|
addm x y = [| x + y |]
|
||
|
|
|