diff options
-rw-r--r-- | Storage.hs | 1 | ||||
-rw-r--r-- | keysafe.hs | 2 |
2 files changed, 2 insertions, 1 deletions
@@ -13,5 +13,6 @@ data Storage = Storage } data StoreResult = StoreSuccess | StoreFailure String + deriving (Show) data RetrieveResult = RetrieveSuccess Shard | RetrieveFailure String @@ -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" |