fixed pwGenerate hanging

ChangeLog.md

@@ -1,3 +1,6 @@
 # Changelog for passman
 
 ## Unreleased changes
+
+- corrected a bug that was causing the pwGenerate function to hang occasionally.
+  - this may cause some passwords to be generated differently

src/Password.hs

@@ -332,7 +332,7 @@ mkPass (x:xs) p = let p' = nextPolicy x p in
 mkPool :: B.ByteString -> String
 mkPool = toB64 . raw where
   raw x = let x' = mkHash x in
-    x' `B.append` raw x
+    x' `B.append` raw x'
 
 mkSeed :: String -> PWData -> B.ByteString
 mkSeed pw d = toUTF8 pw `B.append` (d^.pwSalt)