mirror of
https://github.com/idris-lang/Idris2.git
synced 2024-12-19 09:12:34 +03:00
31 lines
704 B
Idris
31 lines
704 B
Idris
|
import Language.Reflection
|
||
|
|
|
||
|
|
%default total
|
||
|
|
|
||
|
|
%language ElabReflection
|
||
|
|
|
||
|
|
x : List String
|
||
|
|
x = ["a", "b"]
|
||
|
|
|
||
|
|
infixl 1 >==>
|
||
|
|
|
||
|
|
-- From prelude:
|
||
|
|
--(>=>) : Monad m => (a -> m b) -> (b -> m c) -> (a -> m c)
|
||
|
|
--(>=>) f g = \x => f x >>= g
|
||
|
|
|
||
|
|
(>==>) : Monad m => (a -> m b) -> (b -> m c) -> (a -> m c)
|
||
|
|
(>==>) f g = \x => f x >>= \r => g r
|
||
|
|
|
||
|
|
%runElab traverse_ (pure >==> logMsg "debug" 0) x
|
||
|
|
%runElab traverse_ (pure >=> \s => logMsg "debug" 0 s) x
|
||
|
|
%runElab traverse_ (pure >=> logMsg "debug" 0) x
|
||
|
|
|
||
|
|
testing0 : Bool -> Elab String
|
||
|
|
testing0 False = pure "This is false"
|
||
|
|
testing0 True = pure "this is true"
|
||
|
|
|
||
|
|
testing1 : String -> Elab ()
|
||
|
|
testing1 x = logMsg x 0 "debug"
|
||
|
|
|
||
|
|
%runElab traverse_ (testing0 >=> testing1) [False, True]
|