Idris2/tests/idris2/total011/Issue1859.idr

7 lines
123 B
Idris
Raw Normal View History

2021-08-27 18:18:24 +03:00
%default total
fix : Void
fix = case the (Either () Void) (Left ()) of
Left () => fix
Right p => absurd p