diff options
Diffstat (limited to 'keysafe.hs')
-rw-r--r-- | keysafe.hs | 1 |
1 files changed, 1 insertions, 0 deletions
@@ -45,6 +45,7 @@ retrievedemo = do let l = drop 1 $ zip [1..] (getIdents sis) shards <- map (\(RetrieveSuccess s) -> s) <$> mapM (uncurry (retrieveShard localFiles)) l + _ <- obscureShards localFiles let esk = combineShards tunables shards kek <- genKeyEncryptionKey tunables name password -- TODO: need to solve the encryption puzzle |