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/ReKey.hs | |
| parent | eccc97940da7f1a5f97dc700ec3e2e12cb78c851 (diff) | |
where indentation
Diffstat (limited to 'Command/ReKey.hs')
| -rw-r--r-- | Command/ReKey.hs | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/Command/ReKey.hs b/Command/ReKey.hs index 5bd419ca3..ea06873c4 100644 --- a/Command/ReKey.hs +++ b/Command/ReKey.hs @@ -25,13 +25,13 @@ seek = [withPairs start] start :: (FilePath, String) -> CommandStart start (file, keyname) = ifAnnexed file go stop - where - newkey = fromMaybe (error "bad key") $ file2key keyname - go (oldkey, _) - | oldkey == newkey = stop - | otherwise = do - showStart "rekey" file - next $ perform file oldkey newkey + where + newkey = fromMaybe (error "bad key") $ file2key keyname + go (oldkey, _) + | oldkey == newkey = stop + | otherwise = do + showStart "rekey" file + next $ perform file oldkey newkey perform :: FilePath -> Key -> Key -> CommandPerform perform file oldkey newkey = do |