diff --git a/ascii-string.cabal b/ascii-string.cabal
--- a/ascii-string.cabal
+++ b/ascii-string.cabal
@@ -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:
diff --git a/library/AsciiString.hs b/library/AsciiString.hs
--- a/library/AsciiString.hs
+++ b/library/AsciiString.hs
@@ -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
diff --git a/test/Main.hs b/test/Main.hs
--- a/test/Main.hs
+++ b/test/Main.hs
@@ -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))
       ]