Show for contexts, etc

This commit is contained in:
rhiannon morris 2023-09-17 19:09:54 +02:00
parent ac518472ad
commit e1257560b7
3 changed files with 11 additions and 5 deletions

View file

@ -8,6 +8,10 @@ import Quox.Pretty
import Data.List
import Control.Eff
import Derive.Prelude
%language ElabReflection
%hide TT.Name
public export
@ -15,6 +19,7 @@ record NameContexts d n where
constructor MkNameContexts
dnames : BContext d
tnames : BContext n
%runElab deriveIndexed "NameContexts" [Show]
namespace NameContexts
export
@ -105,6 +110,7 @@ data Error
(Elim 0 n) (Elim 0 n)
Error
%name Error err
%runElab derive "Error" [Show]
public export
ErrorEff : Type -> Type