Replace deprecated functions.

idris-community · Sep 4, 2024 · 93cc5fd · 93cc5fd
1 parent 3be2e17
commit 93cc5fd
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/Utils/Bytes.idr b/src/Utils/Bytes.idr
@@ -140,9 +140,9 @@ shiftR' x i = maybe_a_a zeroBits $ do
 export
 rotl : FiniteBits a => {n : Nat} -> {auto prf : ((S n) = bitSize {a})} -> Fin (S n) -> a -> a
 rotl FZ x = x
-rotl (FS i) x = (shiftL x $ bitsToIndex (coerce prf $ FS i)) .|. (shiftR x $ bitsToIndex $ invFin $ coerce prf $ weaken i)
+rotl (FS i) x = (shiftL x $ bitsToIndex (coerce prf $ FS i)) .|. (shiftR x $ bitsToIndex $ complement $ coerce prf $ weaken i)
 
 export
 rotr : FiniteBits a => {n : Nat} -> {auto prf : ((S n) = bitSize {a})} -> Fin (S n) -> a -> a
 rotr FZ x = x
-rotr (FS i) x = (shiftR x $ bitsToIndex (coerce prf $ FS i)) .|. (shiftL x $ bitsToIndex $ invFin $ coerce prf $ weaken i)
+rotr (FS i) x = (shiftR x $ bitsToIndex (coerce prf $ FS i)) .|. (shiftL x $ bitsToIndex $ complement $ coerce prf $ weaken i)