ascii-string 1 → 1.0.0.1

raw patch · 3 files changed

+9/−4 lines, 3 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

Files

• ascii-string.cabal +2/−2
• library/AsciiString.hs +2/−2
• test/Main.hs +5/−0

@@ -1,7 +1,7 @@ name:   ascii-string version:-  1+  1.0.0.1 synopsis:   Compact representation of ASCII strings description:@@ -14,7 +14,7 @@ author:   Nikita Volkov <nikita.y.volkov@mail.ru> maintainer:-  Metrix.AI Ninjas <ninjas@metrix.ai>+  Metrix.AI Tech Team <tech@metrix.ai> copyright:   (c) 2018, Metrix.AI license:

@@ -32,8 +32,8 @@ deriving instance Generic AsciiString  instance Hashable AsciiString where-  hashWithSalt salt (AsciiString size (PrimArray ba)) =-    hashByteArrayWithSalt ba 0 size salt+  hashWithSalt salt (AsciiString size pa@(PrimArray ba)) =+    hashByteArrayWithSalt ba 0 (sizeofPrimArray pa) (hashWithSalt salt size)  instance Show AsciiString where   show = show . toByteString

@@ -6,6 +6,7 @@ import Test.Tasty.Runners import Test.Tasty.HUnit import Test.Tasty.QuickCheck+import AsciiString (AsciiString) import qualified Test.QuickCheck as QuickCheck import qualified Test.QuickCheck.Property as QuickCheck import qualified Data.ByteString as ByteString@@ -46,4 +47,8 @@         ,         testProperty "Cereal Roundtrip" $ forAll asciiStringGen $ \ asciiString ->         Right asciiString === Serialize.decode (Serialize.encode asciiString)+        ,+        testProperty "Hashing" $ forAll asciiStringGen $ \ asciiString ->+        Right (hash asciiString) ===+        fmap (hash :: AsciiString -> Int) (Serialize.decode (Serialize.encode asciiString))       ]