mirror of
https://github.com/idris-lang/Idris2.git
synced 2024-12-26 13:11:30 +03:00
fa06e9936b
* so much experimentation * tests that show preliminary evidence the new stuff is working. * small amount of cleanup * more cleanup of various troubleshooting code. * new test case added. * only log unreachable indices if there are any. * when traversing deeper simply skip over defaults since they have already been reviewed. * Remove fallback clause that the changes in this PR correctly identified as unreachable. * tidying up more. * move some common functions to a new Core.Case.Util module. * refer to case builder and case tree under new parent module. * update imports to look for CaseTree in new submodule. * update api ipkg * remove unneeded application operators. * remove or comment out unreachable default clauses caught by the changes in this PR. * a bit of code documentation and renaming for clarity. * bump previous version in CI. * fix API usage of Util module. * Add issue 1079 test cases. * forgot to add new test cases file. * remove commented-out lines by request of RefC author. * Use a SortedSet instead of nubbing a list. * update new case tree import. * Update src/Core/Case/Util.idr Co-authored-by: G. Allais <guillaume.allais@ens-lyon.org> * remove function with nothing to offer above and beyond a differently named copy of the same code. * replace a large tuple with a record; discover not all of the tuple's fields were needed. * fix shadowing warning. Co-authored-by: G. Allais <guillaume.allais@ens-lyon.org>
15 lines
164 B
Idris
15 lines
164 B
Idris
%default total
|
|
|
|
g3 : (Nat, Nat) -> Nat
|
|
g3 (x, y) = x
|
|
g3 _ = 6
|
|
|
|
f : Monad m => m (Nat, Nat)
|
|
|
|
h3 : Monad m => m Nat
|
|
h3 = do
|
|
(x, y) <- f
|
|
| _ => pure 5
|
|
pure x
|
|
|