Skip to content

Commit c58b595

Browse files
committed
[fix] add missing lens projector fixity
1 parent 192e6de commit c58b595

File tree

1 file changed

+4
-0
lines changed

1 file changed

+4
-0
lines changed

src/Data/Container/Morphism/Definition.idr

Lines changed: 4 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -26,9 +26,12 @@ namespace DependentLenses
2626

2727
%name (=%>) f, g, h
2828

29+
30+
public export prefix 0 %!
2931
public export
3032
(%!) : c1 =%> c2 -> (x : c1.Shp) -> (y : c2.Shp ** (c2.Pos y -> c1.Pos x))
3133
(%!) (!% f) x = f x
34+
3235

3336
||| Composition of dependent lenses
3437
public export
@@ -53,6 +56,7 @@ namespace DependentCharts
5356

5457
%name (=&>) f, g, h
5558

59+
public export prefix 0 &!
5660
public export
5761
(&!) : c1 =&> c2 -> (x : c1.Shp) -> (y : c2.Shp ** (c1.Pos x -> c2.Pos y))
5862
(&!) (!& f) x = f x

0 commit comments

Comments
 (0)