show store successes/failures

1 files changed, 1 insertions, 1 deletions

diff --git a/keysafe.hs b/keysafe.hs
index 962f10f..112ac54 100644
--- a/keysafe.hs
+++ b/keysafe.hs
@@ -25,7 +25,7 @@ storedemo = do
 	let esk = encrypt kek secretkey
 	let sis = shardIdents tunables name keyid
 	shards <- genShards esk tunables
-	mapM_ (uncurry (storeShard localFiles)) (zip (getIdents sis) shards)
+	print =<< mapM (uncurry (storeShard localFiles)) (zip (getIdents sis) shards)
   where
 	password = Password "foo"
 	name = Name "bar"