Show for contexts, etc
This commit is contained in:
parent
ac518472ad
commit
e1257560b7
3 changed files with 11 additions and 5 deletions
|
@ -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
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue