restructuring

- renamed newSalt to newPWSalt
- added PWSalt type
- general style cleanup

test/Spec/NewPWData.hs

@@ -35,7 +35,7 @@ tests = TestLabel "newPData" $ TestList
 
 testSalt x = TestLabel "pwSalt" $
   x^.pwSalt ~?= salt where
-    (salt, _) = newSalt g
+    (salt, _) = newPWSalt g
 
 testPolicy x = TestLabel "pwPolicy" $
   x^.pwPolicy ~?= newPWPolicy

test/Spec/NewPWPolicy.hs

@@ -20,7 +20,7 @@ License along with this program.  If not, see
 
 -}
 
-module Spec.PWPolicy (tests) where
+module Spec.NewPWPolicy (tests) where
 
 import Control.Lens ((^.))
 import Test.HUnit (Test(..), (~?=))

test/Spec/NewPWSalt.hs

@@ -20,7 +20,7 @@ License along with this program.  If not, see
 
 -}
 
-module Spec.NewSalt (tests) where
+module Spec.NewPWSalt (tests) where
 
 import qualified Data.ByteString as B
 import System.Random (mkStdGen)
@@ -28,12 +28,12 @@ import Test.HUnit (Test(..), assertBool, (~?=))
 
 import Password
 
-tests = TestLabel "newSalt" $ TestList
+tests = TestLabel "newPWSalt" $ TestList
   [ testLength salt
   , testDiff salt salt'
   ] where
-    (salt, g') = newSalt g
-    (salt', _) = newSalt g'
+    (salt, g') = newPWSalt g
+    (salt', _) = newPWSalt g'
     g = mkStdGen 1
 
 testLength x = TestLabel "salt length" $ B.length x ~?= 256