mirror of
https://github.com/idris-lang/Idris2.git
synced 2024-12-01 09:49:24 +03:00
a972778eab
They don't all pass yet, for minor reasons. Coming shortly... Unfortunately the startup overhead for chez is really noticeable here!
22 lines
665 B
Idris
22 lines
665 B
Idris
module Default
|
|
|
|
happyPairs : List (Nat, Char)
|
|
happyPairs = map (uncurry $ \ c, n => (n, c)) [('a', 1)]
|
|
|
|
-- In Idris1 `sadPairs` is rejected with the following error:
|
|
-- |
|
|
-- 10 | sadPairs = map (\ (c, n) => (n, c)) [('a', 1)]
|
|
-- | ~~
|
|
-- When checking right hand side of Default.case block in sadPairs at Default.idr:10:19-24 with expected type
|
|
-- (Nat, Char)
|
|
|
|
-- When checking argument a to constructor Builtins.MkPair:
|
|
-- Type mismatch between
|
|
-- Integer (Type of n)
|
|
-- and
|
|
-- Nat (Expected type)
|
|
|
|
|
|
sadPairs : List (Nat, Char)
|
|
sadPairs = map (\ (c, n) => (n, c)) [('a', 1)]
|