mirror of
https://github.com/idris-lang/Idris2.git
synced 2024-12-19 09:12:34 +03:00
15 lines
268 B
Idris
15 lines
268 B
Idris
%logging "compiler.identity" 5
|
|
|
|
-- This SHOULD give us the identity flag
|
|
id : Nat -> Nat
|
|
id Z = Z
|
|
id (S n) = S (id n)
|
|
|
|
-- This should NOT give us anything: `main` is not the identity
|
|
-- because it is effectful
|
|
main : IO ()
|
|
main = do
|
|
s <- getLine
|
|
putStrLn s
|
|
main
|