changed PWSalt default size to 32 bytes (256 bits)

src/Password.hs

@@ -115,7 +115,7 @@ newPWSalt
   -> (PWSalt, g)
   -- ^ the result and new random generator
 newPWSalt g = (result, g2) where
-  result = B.pack $ take 256 $ randoms g1
+  result = B.pack $ take 32 $ randoms g1
   (g1, g2) = split g
 
 -- | validates a password database

test/Spec/NewPWSalt.hs

@@ -36,7 +36,7 @@ tests = TestLabel "newPWSalt" $ TestList
     (salt', _) = newPWSalt g'
     g = mkStdGen 1
 
-testLength x = TestLabel "salt length" $ B.length x ~?= 256
+testLength x = TestLabel "salt length" $ B.length x ~?= 32
 
 testDiff x y = TestLabel "different generators" $ TestCase $
   assertBool "salts match" $ x /= y