1 files changed, 2 insertions, 0 deletions
diff --git a/keysafe.hs b/keysafe.hs
index 72d42ae..bedca7f 100644
--- a/keysafe.hs
+++ b/keysafe.hs
@@ -40,6 +40,8 @@ retrievedemo :: IO ()
 retrievedemo = do
 	let sis = shardIdents tunables name keyid
 	shards <- mapM retrieveShard (drop 1 $ getIdents sis)
+	-- TODO: need to try all orders of shards until one works,
+	-- because the shard numbers are not preserved
 	let esk = combineShards tunables shards
 	kek <- genKeyEncryptionKey tunables name password
 	-- TODO: need to solve the encryption puzzle