missed a file

This commit is contained in:
Joey Hess 2010-10-10 21:04:25 -04:00
parent 200bc6fdb8
commit dc5e8853f3

View file

@ -75,6 +75,7 @@ dropFile backends repo file = do
Just b -> do Just b -> do
key <- lookupKey b repo file key <- lookupKey b repo file
(removeKey b) key (removeKey b) key
removeFile $ backendFile b repo file
return $ Just key return $ Just key
{- Looks up the key a backend uses for an already annexed file. -} {- Looks up the key a backend uses for an already annexed file. -}