1 files changed, 1 insertions, 1 deletions
diff --git a/Storage.hs b/Storage.hs
index cb0e323..d13cbfe 100644
--- a/Storage.hs
+++ b/Storage.hs
@@ -16,7 +16,7 @@ data Storage = Storage
 	, countShards :: IO CountResult
 	} -- Note that there is no interface to enumerate shards.
 
-data StoreResult = StoreSuccess | StoreFailure String
+data StoreResult = StoreSuccess | StoreAlreadyExists | StoreFailure String
 	deriving (Show)
 
 data RetrieveResult = RetrieveSuccess Shard | RetrieveFailure String