From 0045c4b162d2a68a85b8e7844dca97834f888dd5 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Fri, 12 Aug 2016 05:00:17 -0400 Subject: separate error code for already exsisting object store --- Storage.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'Storage.hs') 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 -- cgit v1.2.3