show store successes/failures

2 files changed, 2 insertions, 1 deletions

diff --git a/Storage.hs b/Storage.hs
index 3e5707f..6b23c33 100644
--- a/Storage.hs
+++ b/Storage.hs
@@ -13,5 +13,6 @@ data Storage = Storage
 	}
 
 data StoreResult = StoreSuccess | StoreFailure String
+	deriving (Show)
 
 data RetrieveResult = RetrieveSuccess Shard | RetrieveFailure String
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"