add constructors to Located/Relocatable interfaces
This commit is contained in:
parent
42c2217907
commit
85f20680e6
1 changed files with 7 additions and 2 deletions
|
@ -125,7 +125,9 @@ extendOr l1 l2 = (l1 `extendL` l2) `or` l2
|
|||
|
||||
|
||||
public export
|
||||
interface Located a where (.loc) : a -> Loc
|
||||
interface Located a where
|
||||
constructor MkLocated
|
||||
(.loc) : a -> Loc
|
||||
|
||||
public export
|
||||
0 Located1 : (a -> Type) -> Type
|
||||
|
@ -136,7 +138,10 @@ public export
|
|||
Located2 f = forall x, y. Located (f x y)
|
||||
|
||||
public export
|
||||
interface Located a => Relocatable a where setLoc : Loc -> a -> a
|
||||
public export
|
||||
interface Located a => Relocatable a where
|
||||
constructor MkRelocatable
|
||||
setLoc : Loc -> a -> a
|
||||
|
||||
public export
|
||||
0 Relocatable1 : (a -> Type) -> Type
|
||||
|
|
Loading…
Reference in a new issue