From 60f40262f77225ada3f0cf70f14e7d3f9fe4a9ba Mon Sep 17 00:00:00 2001
From: Jonathan Lamothe <jlamothe1980@gmail.com>
Date: Tue, 1 Jan 2019 04:48:36 -0500
Subject: [PATCH] fixed pwGenerate hanging

---
 ChangeLog.md    | 3 +++
 src/Password.hs | 2 +-
 2 files changed, 4 insertions(+), 1 deletion(-)

diff --git a/ChangeLog.md b/ChangeLog.md
index 118f5e0..b564418 100644
--- a/ChangeLog.md
+++ b/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
diff --git a/src/Password.hs b/src/Password.hs
index a33e645..8d0675c 100644
--- a/src/Password.hs
+++ b/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)