diff options
| author |  Joey Hess <joey@kitenet.net> | 2012-11-12 01:05:04 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2012-11-12 01:05:04 -0400 |
| commit | 064d217d69e052eb0e84b699a70353f997fc7d2f (patch) | |
| tree | bad4f6efa2c4b85ebf161f33ec20c57571b78495 /Command/DropUnused.hs | |
| parent | eccc97940da7f1a5f97dc700ec3e2e12cb78c851 (diff) | |
where indentation
Diffstat (limited to 'Command/DropUnused.hs')
| -rw-r--r-- | Command/DropUnused.hs | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/Command/DropUnused.hs b/Command/DropUnused.hs index 597a4eec0..00c0eec12 100644 --- a/Command/DropUnused.hs +++ b/Command/DropUnused.hs @@ -29,13 +29,13 @@ start = startUnused "dropunused" perform (performOther gitAnnexBadLocation) (per perform :: Key -> CommandPerform perform key = maybe droplocal dropremote =<< Remote.byName =<< from - where - dropremote r = do - showAction $ "from " ++ Remote.name r - ok <- Remote.removeKey r key - next $ Command.Drop.cleanupRemote key r ok - droplocal = Command.Drop.performLocal key (Just 0) -- force drop - from = Annex.getField $ Option.name Command.Drop.fromOption + where + dropremote r = do + showAction $ "from " ++ Remote.name r + ok <- Remote.removeKey r key + next $ Command.Drop.cleanupRemote key r ok + droplocal = Command.Drop.performLocal key (Just 0) -- force drop + from = Annex.getField $ Option.name Command.Drop.fromOption performOther :: (Key -> Git.Repo -> FilePath) -> Key -> CommandPerform performOther filespec key = do |