lib/Quox/Loc.idr

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