move NDefinition to Quox.Definition and add an untyped one

This commit is contained in:
rhiannon morris 2023-11-27 07:37:38 +01:00
parent 2cafb35bc1
commit 103f019dbd
3 changed files with 9 additions and 6 deletions

View file

@ -89,12 +89,16 @@ isZero g = g.qty == GZero
public export public export
data DefEnvTag = DEFS NDefinition : Type
NDefinition = (Name, Definition)
public export public export
Definitions : Type Definitions : Type
Definitions = SortedMap Name Definition Definitions = SortedMap Name Definition
public export
data DefEnvTag = DEFS
public export public export
DefsReader : Type -> Type DefsReader : Type -> Type
DefsReader = ReaderL DEFS Definitions DefsReader = ReaderL DEFS Definitions

View file

@ -27,11 +27,6 @@ import Data.IORef
%default total %default total
public export
NDefinition : Type
NDefinition = (Name, Definition)
public export public export
data StateTag = NS | SEEN data StateTag = NS | SEEN

View file

@ -93,6 +93,10 @@ public export
0 Definitions : Type 0 Definitions : Type
Definitions = SortedMap Name Definition Definitions = SortedMap Name Definition
public export
0 NDefinition : Type
NDefinition = (Name, Definition)
export covering export covering
prettyTerm : {opts : LayoutOpts} -> BContext n -> prettyTerm : {opts : LayoutOpts} -> BContext n ->