round-tripping now working, except for guessing the puzzle

1 files changed, 1 insertions, 1 deletions

diff --git a/keysafe.hs b/keysafe.hs
index 94846f0..f78d420 100644
--- a/keysafe.hs
+++ b/keysafe.hs
@@ -53,7 +53,7 @@ retrievedemo = do
 		Just (SecretKey sk) -> print sk
 		Nothing -> print ("Failed" :: String, esk)
   where
-	password = Password "foo"
+	password = Password "correct horse battery staple"
 	name = Name "bar"
 	tunables = testModeTunables -- defaultTunables
 	keyid = KeyId gpgKey "foobar"