fix: HasOrelse (DelabM _)
This commit is contained in:
parent
17d11b9566
commit
4d2efd4d08
1 changed files with 2 additions and 0 deletions
|
|
@ -95,6 +95,8 @@ protected def failure {α} : DelabM α := throw $ Exception.internal delabFailur
|
|||
instance : Alternative DelabM :=
|
||||
{ orelse := fun _ => Delaborator.orelse,
|
||||
failure := fun _ => Delaborator.failure }
|
||||
-- HACK: necessary since it would otherwise prefer the instance from MonadExcept
|
||||
instance {α} : HasOrelse (DelabM α) := alternativeHasOrelse _ _
|
||||
|
||||
-- Macro scopes in the delaborator output are ultimately ignored by the pretty printer,
|
||||
-- so give a trivial implementation.
|
||||
|
|
|
|||
Loading…
Add table
Reference in a new issue