diff options
Diffstat (limited to 'Storage/LocalFiles.hs')
| -rw-r--r-- | Storage/LocalFiles.hs | 2 |
1 files changed, 1 insertions, 1 deletions
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) |