diff options
author | Joey Hess <joey@kitenet.net> | 2012-06-06 13:13:13 -0400 |
---|---|---|
committer | Joey Hess <joey@kitenet.net> | 2012-06-06 13:13:13 -0400 |
commit | 993e6459a38817a9062aafae7552a668c2db7a31 (patch) | |
tree | 900b38c923644d9f8b7eaf92ec240aa610551780 /Command/DropUnused.hs | |
parent | 723eb19bbf30d502cb6979655b8013de49ce0b5e (diff) |
factor out nukeFile
Diffstat (limited to 'Command/DropUnused.hs')
-rw-r--r-- | Command/DropUnused.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Command/DropUnused.hs b/Command/DropUnused.hs index a94c2873d..597a4eec0 100644 --- a/Command/DropUnused.hs +++ b/Command/DropUnused.hs @@ -40,5 +40,5 @@ perform key = maybe droplocal dropremote =<< Remote.byName =<< from performOther :: (Key -> Git.Repo -> FilePath) -> Key -> CommandPerform performOther filespec key = do f <- fromRepo $ filespec key - liftIO $ whenM (doesFileExist f) $ removeFile f + liftIO $ nukeFile f next $ return True |