camelCase

haskell · Sep 30, 2023 · 11280ba · 11280ba
1 parent 1db3735
commit 11280ba
Showing 1 changed file with 5 additions and 5 deletions.
diff --git a/src/Data/Text/Internal/Reverse.hs b/src/Data/Text/Internal/Reverse.hs
@@ -46,12 +46,12 @@ reversePoints
     -> A.MArray s -- ^ Output array
     -> Int -- ^ Output index
     -> ST s ()
-reversePoints _ _ _ p_out | p_out < 0 = pure ()
-reversePoints ba p_in dest p_out =
-    let pointLength = utf8LengthByLeader (A.unsafeIndex ba p_in)
+reversePoints _ _ _ pOut | pOut < 0 = pure ()
+reversePoints src pIn dest pOut =
+    let pointLength = utf8LengthByLeader (A.unsafeIndex src pIn)
     in do
-        A.copyI pointLength dest (p_out - pointLength + 1) ba p_in
-        reversePoints ba (p_in + pointLength) dest (p_out - pointLength)
+        A.copyI pointLength dest (pOut - pointLength + 1) src pIn
+        reversePoints src (pIn + pointLength) dest (pOut - pointLength)
 #else
 reverse (Text (A.ByteArray ba) off len) = runST $ do
     marr@(A.MutableByteArray mba) <- A.new len