add constructors to Located/Relocatable interfaces

This commit is contained in:
rhiannon morris 2024-05-23 23:28:43 +02:00
parent 42c2217907
commit 85f20680e6

View file

@ -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