1
1
mirror of https://github.com/idris-lang/Idris2.git synced 2024-12-25 12:42:02 +03:00
Idris2/tests/idris2/coverage010/casetot.idr
2021-06-28 13:48:37 +01:00

23 lines
528 B
Idris

module Main
import Data.String
import Data.Vect
import System
%default total
ints : Vect 4 Int
ints = [1, 2, 3, 4]
main : IO ()
main = do
[_, arg] <- getArgs
| _ => do putStrLn "One argument expected."
exitFailure
let n = stringToNatOrZ arg
-- case block in a case block, which is needed to test this properly
case natToFin n (length ints + 1) of
Nothing => do putStrLn "Invalid number."
exitFailure
Just (FS i) => putStrLn $ "Value: " ++ show (index i ints)