Skip to content

Commit 5cd190c

Browse files
JordanMartinezJordanMartinez
committed
Replace RLProxy with Proxy
1 parent cd942d2 commit 5cd190c

File tree

9 files changed

+36
-36
lines changed

9 files changed

+36
-36
lines changed

‎src/Data/Bounded.purs‎

Lines changed: 4 additions & 4 deletions
Original file line numberDiff line numberDiff line change
@@ -96,19 +96,19 @@ instance boundedRecordCons
9696
where
9797
key = reflectSymbol (SProxy :: SProxy key)
9898
insert = unsafeSet key :: focus -> Record subrowTail -> Record subrow
99-
tail = topRecord (RLProxy :: RLProxy rowlistTail) rowProxy
99+
tail = topRecord (Proxy :: Proxy rowlistTail) rowProxy
100100

101101
bottomRecord _ rowProxy
102102
= insert bottom tail
103103
where
104104
key = reflectSymbol (SProxy :: SProxy key)
105105
insert = unsafeSet key :: focus -> Record subrowTail -> Record subrow
106-
tail = bottomRecord (RLProxy :: RLProxy rowlistTail) rowProxy
106+
tail = bottomRecord (Proxy :: Proxy rowlistTail) rowProxy
107107

108108
instance boundedRecord
109109
:: ( RL.RowToList row list
110110
, BoundedRecord list row row
111111
)
112112
=> Bounded (Record row) where
113-
top = topRecord (RLProxy :: RLProxy list) (RProxy :: RProxy row)
114-
bottom = bottomRecord (RLProxy :: RLProxy list) (RProxy :: RProxy row)
113+
top = topRecord (Proxy :: Proxy list) (RProxy :: RProxy row)
114+
bottom = bottomRecord (Proxy :: Proxy list) (RProxy :: RProxy row)

‎src/Data/Eq.purs‎

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -63,7 +63,7 @@ instance eqArray :: Eq a => Eq (Array a) where
6363
eq = eqArrayImpl eq
6464

6565
instance eqRec :: (RL.RowToList row list, EqRecord list row) => Eq (Record row) where
66-
eq = eqRecord (RLProxy :: RLProxy list)
66+
eq = eqRecord (Proxy :: Proxy list)
6767

6868
instance eqProxy :: Eq (Proxy a) where
6969
eq _ _ = true
@@ -111,4 +111,4 @@ instance eqRowCons
111111
where
112112
key = reflectSymbol (SProxy :: SProxy key)
113113
get = unsafeGet key :: Record row -> focus
114-
tail = eqRecord (RLProxy :: RLProxy rowlistTail) ra rb
114+
tail = eqRecord (Proxy :: Proxy rowlistTail) ra rb

‎src/Data/HeytingAlgebra.purs‎

Lines changed: 12 additions & 12 deletions
Original file line numberDiff line numberDiff line change
@@ -97,12 +97,12 @@ instance heytingAlgebraProxy3 :: HeytingAlgebra (Proxy3 a) where
9797
tt = Proxy3
9898

9999
instance heytingAlgebraRecord :: (RL.RowToList row list, HeytingAlgebraRecord list row row) => HeytingAlgebra (Record row) where
100-
ff = ffRecord (RLProxy :: RLProxy list) (RProxy :: RProxy row)
101-
tt = ttRecord (RLProxy :: RLProxy list) (RProxy :: RProxy row)
102-
conj = conjRecord (RLProxy :: RLProxy list)
103-
disj = disjRecord (RLProxy :: RLProxy list)
104-
implies = impliesRecord (RLProxy :: RLProxy list)
105-
not = notRecord (RLProxy :: RLProxy list)
100+
ff = ffRecord (Proxy :: Proxy list) (RProxy :: RProxy row)
101+
tt = ttRecord (Proxy :: Proxy list) (RProxy :: RProxy row)
102+
conj = conjRecord (Proxy :: Proxy list)
103+
disj = disjRecord (Proxy :: Proxy list)
104+
implies = impliesRecord (Proxy :: Proxy list)
105+
not = notRecord (Proxy :: Proxy list)
106106

107107
foreign import boolConj :: Boolean -> Boolean -> Boolean
108108
foreign import boolDisj :: Boolean -> Boolean -> Boolean
@@ -138,38 +138,38 @@ instance heytingAlgebraRecordCons
138138
key = reflectSymbol (SProxy :: SProxy key)
139139
get = unsafeGet key :: Record row -> focus
140140
insert = unsafeSet key :: focus -> Record subrowTail -> Record subrow
141-
tail = conjRecord (RLProxy :: RLProxy rowlistTail) ra rb
141+
tail = conjRecord (Proxy :: Proxy rowlistTail) ra rb
142142

143143
disjRecord _ ra rb = insert (disj (get ra) (get rb)) tail
144144
where
145145
key = reflectSymbol (SProxy :: SProxy key)
146146
get = unsafeGet key :: Record row -> focus
147147
insert = unsafeSet key :: focus -> Record subrowTail -> Record subrow
148-
tail = disjRecord (RLProxy :: RLProxy rowlistTail) ra rb
148+
tail = disjRecord (Proxy :: Proxy rowlistTail) ra rb
149149

150150
impliesRecord _ ra rb = insert (implies (get ra) (get rb)) tail
151151
where
152152
key = reflectSymbol (SProxy :: SProxy key)
153153
get = unsafeGet key :: Record row -> focus
154154
insert = unsafeSet key :: focus -> Record subrowTail -> Record subrow
155-
tail = impliesRecord (RLProxy :: RLProxy rowlistTail) ra rb
155+
tail = impliesRecord (Proxy :: Proxy rowlistTail) ra rb
156156

157157
ffRecord _ row = insert ff tail
158158
where
159159
key = reflectSymbol (SProxy :: SProxy key)
160160
insert = unsafeSet key :: focus -> Record subrowTail -> Record subrow
161-
tail = ffRecord (RLProxy :: RLProxy rowlistTail) row
161+
tail = ffRecord (Proxy :: Proxy rowlistTail) row
162162

163163
notRecord _ row
164164
= insert (not (get row)) tail
165165
where
166166
key = reflectSymbol (SProxy :: SProxy key)
167167
get = unsafeGet key :: Record row -> focus
168168
insert = unsafeSet key :: focus -> Record subrowTail -> Record subrow
169-
tail = notRecord (RLProxy :: RLProxy rowlistTail) row
169+
tail = notRecord (Proxy :: Proxy rowlistTail) row
170170

171171
ttRecord _ row = insert tt tail
172172
where
173173
key = reflectSymbol (SProxy :: SProxy key)
174174
insert = unsafeSet key :: focus -> Record subrowTail -> Record subrow
175-
tail = ttRecord (RLProxy :: RLProxy rowlistTail) row
175+
tail = ttRecord (Proxy :: Proxy rowlistTail) row

‎src/Data/Monoid.purs‎

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -60,7 +60,7 @@ instance monoidArray :: Monoid (Array a) where
6060
mempty = []
6161

6262
instance monoidRecord :: (RL.RowToList row list, MonoidRecord list row row) => Monoid (Record row) where
63-
mempty = memptyRecord (RLProxy :: RLProxy list)
63+
mempty = memptyRecord (Proxy :: Proxy list)
6464

6565
-- | Append a value to itself a certain number of times. For the
6666
-- | `Multiplicative` type, and for a non-negative power, this is the same as
@@ -107,4 +107,4 @@ instance monoidRecordCons
107107
where
108108
key = reflectSymbol (SProxy :: SProxy key)
109109
insert = unsafeSet key :: focus -> Record subrowTail -> Record subrow
110-
tail = memptyRecord (RLProxy :: RLProxy rowlistTail)
110+
tail = memptyRecord (Proxy :: Proxy rowlistTail)

‎src/Data/Ord.purs‎

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -240,7 +240,7 @@ instance ordRecordCons
240240
compareRecord _ ra rb
241241
= if left /= EQ
242242
then left
243-
else compareRecord (RLProxy :: RLProxy rowlistTail) ra rb
243+
else compareRecord (Proxy :: Proxy rowlistTail) ra rb
244244
where
245245
key = reflectSymbol (SProxy :: SProxy key)
246246
unsafeGet' = unsafeGet :: String -> Record row -> focus
@@ -251,4 +251,4 @@ instance ordRecord
251251
, OrdRecord list row
252252
)
253253
=> Ord (Record row) where
254-
compare = compareRecord (RLProxy :: RLProxy list)
254+
compare = compareRecord (Proxy :: Proxy list)

‎src/Data/Ring.purs‎

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -47,7 +47,7 @@ instance ringProxy3 :: Ring (Proxy3 a) where
4747
sub _ _ = Proxy3
4848

4949
instance ringRecord :: (RL.RowToList row list, RingRecord list row row) => Ring (Record row) where
50-
sub = subRecord (RLProxy :: RLProxy list)
50+
sub = subRecord (Proxy :: Proxy list)
5151

5252
-- | `negate x` can be used as a shorthand for `zero - x`.
5353
negate :: forall a. Ring a => a -> a
@@ -76,4 +76,4 @@ instance ringRecordCons
7676
insert = unsafeSet key :: focus -> Record subrowTail -> Record subrow
7777
key = reflectSymbol (SProxy :: SProxy key)
7878
get = unsafeGet key :: Record row -> focus
79-
tail = subRecord (RLProxy :: RLProxy rowlistTail) ra rb
79+
tail = subRecord (Proxy :: Proxy rowlistTail) ra rb

‎src/Data/Semigroup.purs‎

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -59,7 +59,7 @@ instance semigroupProxy3 :: Semigroup (Proxy3 a) where
5959
append _ _ = Proxy3
6060

6161
instance semigroupRecord :: (RL.RowToList row list, SemigroupRecord list row row) => Semigroup (Record row) where
62-
append = appendRecord (RLProxy :: RLProxy list)
62+
append = appendRecord (Proxy :: Proxy list)
6363

6464
foreign import concatString :: String -> String -> String
6565
foreign import concatArray :: forall a. Array a -> Array a -> Array a
@@ -84,4 +84,4 @@ instance semigroupRecordCons
8484
key = reflectSymbol (SProxy :: SProxy key)
8585
get = unsafeGet key :: Record row -> focus
8686
insert = unsafeSet key :: focus -> Record subrowTail -> Record subrow
87-
tail = appendRecord (RLProxy :: RLProxy rowlistTail) ra rb
87+
tail = appendRecord (Proxy :: Proxy rowlistTail) ra rb

‎src/Data/Semiring.purs‎

Lines changed: 8 additions & 8 deletions
Original file line numberDiff line numberDiff line change
@@ -85,10 +85,10 @@ instance semiringProxy3 :: Semiring (Proxy3 a) where
8585
zero = Proxy3
8686

8787
instance semiringRecord :: (RL.RowToList row list, SemiringRecord list row row) => Semiring (Record row) where
88-
add = addRecord (RLProxy :: RLProxy list)
89-
mul = mulRecord (RLProxy :: RLProxy list)
90-
one = oneRecord (RLProxy :: RLProxy list) (RProxy :: RProxy row)
91-
zero = zeroRecord (RLProxy :: RLProxy list) (RProxy :: RProxy row)
88+
add = addRecord (Proxy :: Proxy list)
89+
mul = mulRecord (Proxy :: Proxy list)
90+
one = oneRecord (Proxy :: Proxy list) (RProxy :: RProxy row)
91+
zero = zeroRecord (Proxy :: Proxy list) (RProxy :: RProxy row)
9292

9393
foreign import intAdd :: Int -> Int -> Int
9494
foreign import intMul :: Int -> Int -> Int
@@ -120,24 +120,24 @@ instance semiringRecordCons
120120
where
121121
key = reflectSymbol (SProxy :: SProxy key)
122122
get = unsafeGet key :: Record row -> focus
123-
tail = addRecord (RLProxy :: RLProxy rowlistTail) ra rb
123+
tail = addRecord (Proxy :: Proxy rowlistTail) ra rb
124124
insert = unsafeSet key :: focus -> Record subrowTail -> Record subrow
125125

126126
mulRecord _ ra rb = insert (get ra * get rb) tail
127127
where
128128
key = reflectSymbol (SProxy :: SProxy key)
129129
get = unsafeGet key :: Record row -> focus
130-
tail = mulRecord (RLProxy :: RLProxy rowlistTail) ra rb
130+
tail = mulRecord (Proxy :: Proxy rowlistTail) ra rb
131131
insert = unsafeSet key :: focus -> Record subrowTail -> Record subrow
132132

133133
oneRecord _ _ = insert one tail
134134
where
135135
key = reflectSymbol (SProxy :: SProxy key)
136-
tail = oneRecord (RLProxy :: RLProxy rowlistTail) (RProxy :: RProxy row)
136+
tail = oneRecord (Proxy :: Proxy rowlistTail) (RProxy :: RProxy row)
137137
insert = unsafeSet key :: focus -> Record subrowTail -> Record subrow
138138

139139
zeroRecord _ _ = insert zero tail
140140
where
141141
key = reflectSymbol (SProxy :: SProxy key)
142-
tail = zeroRecord (RLProxy :: RLProxy rowlistTail) (RProxy :: RProxy row)
142+
tail = zeroRecord (Proxy :: Proxy rowlistTail) (RProxy :: RProxy row)
143143
insert = unsafeSet key :: focus -> Record subrowTail -> Record subrow

‎src/Data/Show.purs‎

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -47,7 +47,7 @@ instance showProxy3 :: Show (Proxy3 a) where
4747
show _ = "Proxy3"
4848

4949
instance showRecord :: (RL.RowToList rs ls, ShowRecordFields ls rs) => Show (Record rs) where
50-
show record = case showRecordFields (RLProxy :: RLProxy ls) record of
50+
show record = case showRecordFields (Proxy :: Proxy ls) record of
5151
[] -> "{}"
5252
fields -> join " " ["{", join ", " fields, "}"]
5353

@@ -70,7 +70,7 @@ instance showRecordFieldsCons
7070
where
7171
key = reflectSymbol (SProxy :: SProxy key)
7272
focus = unsafeGet key record :: focus
73-
tail = showRecordFields (RLProxy :: RLProxy rowlistTail) record
73+
tail = showRecordFields (Proxy :: Proxy rowlistTail) record
7474

7575
foreign import showIntImpl :: Int -> String
7676
foreign import showNumberImpl :: Number -> String

0 commit comments

Comments
 (0)