diff options
| author |  Joey Hess <joey@kitenet.net> | 2011-02-28 16:10:16 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2011-02-28 16:18:55 -0400 |
| commit | fcdc4797a9ab2b792a9bb20f2ca9802b8f6d5a1e (patch) | |
| tree | 0471848c11df7c1481d8c735eab1280d7684eddc /Upgrade.hs | |
| parent | 7e5678bcf7cd78bd04520117201be37dc9d4d544 (diff) | |
use ShellParam type
So, I have a type checked safe handling of filenames starting with dashes,
throughout the code.
Diffstat (limited to 'Upgrade.hs')
| -rw-r--r-- | Upgrade.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/Upgrade.hs b/Upgrade.hs index b584b2666..3c16bcc86 100644 --- a/Upgrade.hs +++ b/Upgrade.hs @@ -22,6 +22,7 @@ import qualified Annex import qualified Backend import Messages import Version +import Utility {- Uses the annex.version git config setting to automate upgrades. -} upgrade :: Annex Bool @@ -62,7 +63,7 @@ upgradeFrom0 = do link <- calcGitLink f k liftIO $ removeFile f liftIO $ createSymbolicLink link f - Annex.queue "add" ["--"] f + Annex.queue "add" [Param "--"] f fixlinks fs getKeysPresent0' :: FilePath -> Annex [Key] |