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/LocalFiles.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'Storage') diff --git a/Storage/LocalFiles.hs b/Storage/LocalFiles.hs index f34a8b5..ebcc492 100644 --- a/Storage/LocalFiles.hs +++ b/Storage/LocalFiles.hs @@ -38,7 +38,7 @@ store i s = onError (StoreFailure . show) $ do let dest = dir shardFile i exists <- doesFileExist dest if exists - then return $ StoreFailure "file already exists" + then return StoreAlreadyExists else do let tmp = dest ++ ".tmp" fd <- openFd tmp WriteOnly (Just 0o666) -- cgit v1.2.3