diff options
| author |  Joey Hess <joey@kitenet.net> | 2012-06-29 10:00:05 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2012-06-29 10:00:05 -0400 |
| commit | 29335bf32685ee665f9ec5acbcfe7f8edabd1b96 (patch) | |
| tree | 87b11ade25aa99712df020063221ecd6af43b771 /Remote | |
| parent | cd0ab91c91e84b726dbc3da39e57893bd1417ee9 (diff) | |
pointlessness
Diffstat (limited to 'Remote')
| -rw-r--r-- | Remote/Directory.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Remote/Directory.hs b/Remote/Directory.hs index a5b0ff2a2..f618f518e 100644 --- a/Remote/Directory.hs +++ b/Remote/Directory.hs @@ -272,7 +272,7 @@ retrieveCheap d _ k f = liftIO $ withStoredFiles Nothing d k go remove :: FilePath -> ChunkSize -> Key -> Annex Bool remove d chunksize k = liftIO $ withStoredFiles chunksize d k go where - go files = all id <$> mapM removefile files + go = all id <$$> mapM removefile removefile file = catchBoolIO $ do let dir = parentDir file allowWrite dir |