Skip to content

Commit

Permalink
Fix shiftByteString and rotateByteString (IntersectMBO#6385)
Browse files Browse the repository at this point in the history
  • Loading branch information
Kenneth MacKenzie authored Aug 7, 2024
1 parent 3d06186 commit 18b4174
Showing 1 changed file with 2 additions and 2 deletions.
4 changes: 2 additions & 2 deletions plutus-metatheory/src/Builtin.lagda.md
Original file line number Diff line number Diff line change
Expand Up @@ -589,8 +589,8 @@ postulate
{-# COMPILE GHC readBIT = \s n -> builtinResultToMaybe $ Bitwise.readBit s (fromIntegral n) #-}
{-# COMPILE GHC writeBITS = \s ps us -> builtinResultToMaybe $ Bitwise.writeBits s (fmap fromIntegral ps) us #-}
{-# COMPILE GHC replicateBYTE = \n w8 -> builtinResultToMaybe $ Bitwise.replicateByte (fromIntegral n) (fromIntegral w8) #-}
{-# COMPILE GHC shiftBYTESTRING = \s n -> Bitwise.shiftByteString s (fromIntegral n) #-}
{-# COMPILE GHC rotateBYTESTRING = \s n -> Bitwise.rotateByteString s (fromIntegral n) #-}
{-# COMPILE GHC shiftBYTESTRING = Bitwise.shiftByteStringWrapper #-}
{-# COMPILE GHC rotateBYTESTRING = Bitwise.rotateByteStringWrapper #-}
{-# COMPILE GHC countSetBITS = \s -> fromIntegral $ Bitwise.countSetBits s #-}
{-# COMPILE GHC findFirstSetBIT = \s -> fromIntegral $ Bitwise.findFirstSetBit s #-}
Expand Down

0 comments on commit 18b4174

Please sign in to comment.