summaryrefslogtreecommitdiff
path: root/Annex.hs
diff options
context:
space:
mode:
Diffstat (limited to 'Annex.hs')
-rw-r--r--Annex.hs6
1 files changed, 2 insertions, 4 deletions
diff --git a/Annex.hs b/Annex.hs
index 7cee3c4cb..936e62502 100644
--- a/Annex.hs
+++ b/Annex.hs
@@ -87,10 +87,8 @@ annexFile state file = inBackend file err $ do
{- Inverse of annexFile. -}
unannexFile :: State -> FilePath -> IO ()
unannexFile state file = notinBackend file err $ \(key, backend) -> do
- dropped <- dropFile state backend key
- if (not dropped)
- then error $ "backend refused to drop " ++ file
- else cleanup key backend
+ dropFile state backend key
+ cleanup key backend
where
err = error $ "not annexed " ++ file
cleanup key backend = do