Kdybych tam cpal čísla ze vstupu, musel bych si to ověření sudosti (prfX) vyrobit sám a předat ho explicitně.
Mohl by si mi ukázat, jak by to vypadalo?
Jasně, včera jsem to už zkoušel, abych viděl, jak se současná verze chová.
total main : IO ()
main = do
Just n <- readNat | _ => putStrLn "not a natural number"
let Yes _ = decIsEven n | _ => putStrLn "n isn't even"
Just m <- readNat | _ => putStrLn "not a natural number"
let Yes _ = decIsEven m | _ => putStrLn "m isn't even"
putStrLn $ "Hello: " ++ (show (sumx n m))
Když tam nebude to
let Yes ..., tak kód neprojde typovou kontrolou.
P.S. Psal jsem "předat explicitně", ale ve verzi 0.6.0 to už zřejmě není nutné, překladač si to ověření najde v ASTu.