test: example that requires the instance arg reordering

This commit is contained in:
Daniel Selsam 2020-04-07 19:23:59 -07:00 committed by Leonardo de Moura
parent fd61812b6e
commit 7c1c0dc01e

View file

@ -0,0 +1,33 @@
set_option trace.class_instances true
example (M : Type → Type) [Monad M] : ExceptT Unit (ReaderT Unit (StateT Unit M)) Unit := do
ctx ← read;
pure ()
/-
...
[class_instances] (1) ?x_8 : HasMonadLift
(ReaderT ?x_10
(OptionT
(OptionT
(OptionT
(OptionT
(OptionT
(OptionT
(OptionT
(OptionT
(OptionT
(OptionT
(OptionT
(OptionT
(OptionT
(OptionT
(OptionT
(OptionT
(OptionT
(OptionT
(OptionT (OptionT (OptionT (OptionT (OptionT (OptionT (OptionT (OptionT (OptionT (OptionT (OptionT List))))))))))))))))))))))))))))))
(ExceptT Unit (ReaderT Unit (StateT Unit M))) := @ExceptT.exceptTOfExcept ?x_82 ?x_83 ?x_84
failed is_def_eq
...
error: maximum class-instance resolution depth has been reached
-/