From 648e1661100a6623dceca8042187de58d6df940a Mon Sep 17 00:00:00 2001
From: Jonathan Lamothe <jlamothe1980@gmail.com>
Date: Thu, 20 Dec 2018 21:48:02 -0500
Subject: [PATCH] fixed mkPool

---
 src/Password.hs | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/src/Password.hs b/src/Password.hs
index 262c15d..a548781 100644
--- a/src/Password.hs
+++ b/src/Password.hs
@@ -208,8 +208,9 @@ mkPass (x:xs) p = let p' = nextPolicy x p in
   else mkPass xs p
 
 mkPool :: B.ByteString -> String
-mkPool s = toB64 hash ++ mkPool hash where
-  hash = mkHash s
+mkPool = toB64 . raw where
+  raw x = let x' = mkHash x in
+    x' `B.append` raw x
 
 mkSeed :: String -> PWData -> B.ByteString
 mkSeed pw d = toUTF8 pw `B.append` (d^.pwSalt)