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/Copy.hs | |
| parent | eccc97940da7f1a5f97dc700ec3e2e12cb78c851 (diff) | |
where indentation
Diffstat (limited to 'Command/Copy.hs')
| -rw-r--r-- | Command/Copy.hs | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/Command/Copy.hs b/Command/Copy.hs index 4352aaa31..dd5599264 100644 --- a/Command/Copy.hs +++ b/Command/Copy.hs @@ -29,7 +29,7 @@ start :: Maybe Remote -> Maybe Remote -> FilePath -> (Key, Backend) -> CommandSt start to from file (key, backend) = autoCopies file key (<) $ stopUnless shouldCopy $ Command.Move.start to from False file (key, backend) - where - shouldCopy = case to of - Nothing -> checkAuto $ wantGet (Just file) - Just r -> checkAuto $ wantSend (Just file) (Remote.uuid r) + where + shouldCopy = case to of + Nothing -> checkAuto $ wantGet (Just file) + Just r -> checkAuto $ wantSend (Just file) (Remote.uuid r) |