Fix build on GHC9

oscoin · Mar 14, 2023 · 594f53d · 594f53d
1 parent 4b397fb
commit 594f53d
Show file tree

Hide file tree

Showing 3 changed files with 5 additions and 3 deletions.
diff --git a/base32-z-bytestring.cabal b/base32-z-bytestring.cabal
@@ -54,6 +54,7 @@ test-suite tests
                      , base32-z-bytestring
                      , bytestring
                      , hedgehog
+                     , hspec
                      , tasty
                      , tasty-fail-fast
                      , tasty-hedgehog

diff --git a/src/Data/ByteString/Base32/Internal.hs b/src/Data/ByteString/Base32/Internal.hs
@@ -45,7 +45,7 @@ type Word5 = Word8
 -----------------------------------------------------------------------}
 
 unpack5Ptr :: Ptr Word8 -> ByteString -> ByteString
-unpack5Ptr !tbl bs @ (PS fptr off sz) =
+unpack5Ptr !tbl bs@(PS fptr off sz) =
   unsafePerformIO $ do
     let unpackedSize = dstSize $ BS.length bs
     BS.create unpackedSize $ \ dst -> do
@@ -136,7 +136,7 @@ cleanup io = unsafePerformIO $
     handler (ErrorCall msg) = return (Left msg)
 
 pack5Ptr :: Ptr Word5 -> ByteString -> Result ByteString
-pack5Ptr !tbl bs @ (PS fptr off sz) =
+pack5Ptr !tbl bs@(PS fptr off sz) =
   cleanup $ do
     let packedSize = dstSize $ BS.length bs
     BS.createAndTrim packedSize $ \ dst -> do
@@ -223,7 +223,7 @@ isInAlphabet !tbl !ix =
   unsafePerformIO (peekByteOff tbl (fromIntegral ix)) /= invIx
 
 pack5Lenient :: DecTable -> ByteString -> Either String ByteString
-pack5Lenient tbl @ (PS fptr _ _) bs =
+pack5Lenient tbl@(PS fptr _ _) bs =
   unsafePerformIO $ do
     withForeignPtr fptr $ \ !tbl_ptr -> do
       return $! pack5 tbl $ BS.filter (isInAlphabet tbl_ptr) bs
diff --git a/test/Test/Data/ByteString/Base32.hs b/test/Test/Data/ByteString/Base32.hs
@@ -10,6 +10,7 @@ import           System.IO.Unsafe         (unsafePerformIO)
 import           Hedgehog
 import qualified Hedgehog.Gen             as Gen
 import qualified Hedgehog.Range           as Range
+import           Test.Hspec
 import           Test.Tasty
 import           Test.Tasty.Hedgehog
 import           Test.Tasty.Hspec