Replace SProxy with Proxy

Author: JordanMartinez

src/Data/Bounded.purs

@@ -94,14 +94,14 @@ instance boundedRecordCons
   topRecord _ rowProxy
     = insert top tail
     where
-      key = reflectSymbol (SProxy :: SProxy key)
+      key = reflectSymbol (Proxy :: Proxy key)
       insert = unsafeSet key :: focus -> Record subrowTail -> Record subrow
       tail = topRecord (Proxy :: Proxy rowlistTail) rowProxy
 
   bottomRecord _ rowProxy
     = insert bottom tail
     where
-      key = reflectSymbol (SProxy :: SProxy key)
+      key = reflectSymbol (Proxy :: Proxy key)
       insert = unsafeSet key :: focus -> Record subrowTail -> Record subrow
       tail = bottomRecord (Proxy :: Proxy rowlistTail) rowProxy
 

src/Data/Eq.purs

@@ -109,6 +109,6 @@ instance eqRowCons
     => EqRecord (RL.Cons key focus rowlistTail) row where
   eqRecord _ ra rb = (get ra == get rb) && tail
     where
-      key = reflectSymbol (SProxy :: SProxy key)
+      key = reflectSymbol (Proxy :: Proxy key)
       get = unsafeGet key :: Record row -> focus
       tail = eqRecord (Proxy :: Proxy rowlistTail) ra rb

src/Data/HeytingAlgebra.purs

@@ -135,41 +135,41 @@ instance heytingAlgebraRecordCons
     => HeytingAlgebraRecord (RL.Cons key focus rowlistTail) row subrow where
   conjRecord _ ra rb = insert (conj (get ra) (get rb)) tail
     where
-      key = reflectSymbol (SProxy :: SProxy key)
+      key = reflectSymbol (Proxy :: Proxy key)
       get = unsafeGet key :: Record row -> focus
       insert = unsafeSet key :: focus -> Record subrowTail -> Record subrow
       tail = conjRecord (Proxy :: Proxy rowlistTail) ra rb
 
   disjRecord _ ra rb = insert (disj (get ra) (get rb)) tail
     where
-      key = reflectSymbol (SProxy :: SProxy key)
+      key = reflectSymbol (Proxy :: Proxy key)
       get = unsafeGet key :: Record row -> focus
       insert = unsafeSet key :: focus -> Record subrowTail -> Record subrow
       tail = disjRecord (Proxy :: Proxy rowlistTail) ra rb
 
   impliesRecord _ ra rb = insert (implies (get ra) (get rb)) tail
     where
-      key = reflectSymbol (SProxy :: SProxy key)
+      key = reflectSymbol (Proxy :: Proxy key)
       get = unsafeGet key :: Record row -> focus
       insert = unsafeSet key :: focus -> Record subrowTail -> Record subrow
       tail = impliesRecord (Proxy :: Proxy rowlistTail) ra rb
 
   ffRecord _ row = insert ff tail
     where
-      key = reflectSymbol (SProxy :: SProxy key)
+      key = reflectSymbol (Proxy :: Proxy key)
       insert = unsafeSet key :: focus -> Record subrowTail -> Record subrow
       tail = ffRecord (Proxy :: Proxy rowlistTail) row
 
   notRecord _ row
     = insert (not (get row)) tail
     where
-      key = reflectSymbol (SProxy :: SProxy key)
+      key = reflectSymbol (Proxy :: Proxy key)
       get = unsafeGet key :: Record row -> focus
       insert = unsafeSet key :: focus -> Record subrowTail -> Record subrow
       tail = notRecord (Proxy :: Proxy rowlistTail) row
 
   ttRecord _ row = insert tt tail
     where
-      key = reflectSymbol (SProxy :: SProxy key)
+      key = reflectSymbol (Proxy :: Proxy key)
       insert = unsafeSet key :: focus -> Record subrowTail -> Record subrow
       tail = ttRecord (Proxy :: Proxy rowlistTail) row

src/Data/Ord.purs

@@ -242,7 +242,7 @@ instance ordRecordCons
         then left
         else compareRecord (Proxy :: Proxy rowlistTail) ra rb
     where
-      key = reflectSymbol (SProxy :: SProxy key)
+      key = reflectSymbol (Proxy :: Proxy key)
       unsafeGet' = unsafeGet :: String -> Record row -> focus
       left = unsafeGet' key ra `compare` unsafeGet' key rb
 

src/Data/Ring.purs

@@ -74,6 +74,6 @@ instance ringRecordCons
   subRecord _ ra rb = insert (get ra - get rb) tail
     where
       insert = unsafeSet key :: focus -> Record subrowTail -> Record subrow
-      key = reflectSymbol (SProxy :: SProxy key)
+      key = reflectSymbol (Proxy :: Proxy key)
       get = unsafeGet key :: Record row -> focus
       tail = subRecord (Proxy :: Proxy rowlistTail) ra rb

src/Data/Semigroup.purs

@@ -81,7 +81,7 @@ instance semigroupRecordCons
     => SemigroupRecord (RL.Cons key focus rowlistTail) row subrow where
   appendRecord _ ra rb = insert (get ra <> get rb) tail
     where
-      key = reflectSymbol (SProxy :: SProxy key)
+      key = reflectSymbol (Proxy :: Proxy key)
       get = unsafeGet key :: Record row -> focus
       insert = unsafeSet key :: focus -> Record subrowTail -> Record subrow
       tail = appendRecord (Proxy :: Proxy rowlistTail) ra rb

src/Data/Semiring.purs

@@ -118,26 +118,26 @@ instance semiringRecordCons
     => SemiringRecord (RL.Cons key focus rowlistTail) row subrow where
   addRecord _ ra rb = insert (get ra + get rb) tail
     where
-      key = reflectSymbol (SProxy :: SProxy key)
+      key = reflectSymbol (Proxy :: Proxy key)
       get = unsafeGet key :: Record row -> focus
       tail = addRecord (Proxy :: Proxy rowlistTail) ra rb
       insert = unsafeSet key :: focus -> Record subrowTail -> Record subrow
 
   mulRecord _ ra rb = insert (get ra * get rb) tail
     where
-      key = reflectSymbol (SProxy :: SProxy key)
+      key = reflectSymbol (Proxy :: Proxy key)
       get = unsafeGet key :: Record row -> focus
       tail = mulRecord (Proxy :: Proxy rowlistTail) ra rb
       insert = unsafeSet key :: focus -> Record subrowTail -> Record subrow
 
   oneRecord _ _ = insert one tail
     where
-      key = reflectSymbol (SProxy :: SProxy key)
+      key = reflectSymbol (Proxy :: Proxy key)
       tail = oneRecord (Proxy :: Proxy rowlistTail) (Proxy :: Proxy row)
       insert = unsafeSet key :: focus -> Record subrowTail -> Record subrow
 
   zeroRecord _ _ = insert zero tail
     where
-      key = reflectSymbol (SProxy :: SProxy key)
+      key = reflectSymbol (Proxy :: Proxy key)
       tail = zeroRecord (Proxy :: Proxy rowlistTail) (Proxy :: Proxy row)
       insert = unsafeSet key :: focus -> Record subrowTail -> Record subrow

src/Data/Show.purs

@@ -69,7 +69,7 @@ instance showRecordFieldsCons
   showRecordFields _ record
     = cons (join ": " [ key, show focus ]) tail
     where
-      key = reflectSymbol (SProxy :: SProxy key)
+      key = reflectSymbol (Proxy :: Proxy key)
       focus = unsafeGet key record :: focus
       tail = showRecordFields (Proxy :: Proxy rowlistTail) record