mirror of
https://github.com/idris-lang/Idris2.git
synced 2024-12-25 12:42:02 +03:00
11 lines
154 B
Idris
11 lines
154 B
Idris
|
import System
|
||
|
|
|
||
|
|
assert : Bool -> IO ()
|
||
|
|
assert b = if b
|
||
|
|
then pure ()
|
||
|
|
else assert_total $ idris_crash ""
|
||
|
|
|
||
|
|
main : IO ()
|
||
|
|
main = do
|
||
|
|
assert $ !getPID /= 0
|