move 'enum' to Syntax.Base
This commit is contained in:
parent
e6c4203b46
commit
5560cb6708
3 changed files with 4 additions and 6 deletions
|
@ -234,3 +234,7 @@ BV i = B $ V i
|
||||||
public export %inline
|
public export %inline
|
||||||
BVT : (i : Nat) -> (0 _ : LT i n) => Term q d n
|
BVT : (i : Nat) -> (0 _ : LT i n) => Term q d n
|
||||||
BVT i = E $ BV i
|
BVT i = E $ BV i
|
||||||
|
|
||||||
|
public export
|
||||||
|
enum : List TagVal -> Term q d n
|
||||||
|
enum = Enum . SortedSet.fromList
|
||||||
|
|
|
@ -24,9 +24,6 @@ parameters (ds : NContext d) (ns : NContext n)
|
||||||
{default str label : String} -> Test
|
{default str label : String} -> Test
|
||||||
testPrettyE1 e str {label} = testPrettyT1 (E e) str {label}
|
testPrettyE1 e str {label} = testPrettyT1 (E e) str {label}
|
||||||
|
|
||||||
enum : List TagVal -> Term q d n
|
|
||||||
enum = Enum . SortedSet.fromList
|
|
||||||
|
|
||||||
export
|
export
|
||||||
tests : Test
|
tests : Test
|
||||||
tests = "pretty printing terms" :- [
|
tests = "pretty printing terms" :- [
|
||||||
|
|
|
@ -160,9 +160,6 @@ failing "Can't find an implementation"
|
||||||
sany : SQty Three
|
sany : SQty Three
|
||||||
sany = Element Any %search
|
sany = Element Any %search
|
||||||
|
|
||||||
enum : List TagVal -> Term q d n
|
|
||||||
enum = Enum . SortedSet.fromList
|
|
||||||
|
|
||||||
|
|
||||||
export
|
export
|
||||||
tests : Test
|
tests : Test
|
||||||
|
|
Loading…
Reference in a new issue