mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

use ShellParam type

Browse source 
So, I have a type checked safe handling of filenames starting with dashes,
throughout the code.
This commit is contained in:
Joey Hess 2011-02-28 16:10:16 -04:00
parent 7e5678bcf7
commit fcdc4797a9
24 changed files with 151 additions and 124 deletions
Download patch file Download diff file Expand all files Collapse all files

3
Upgrade.hs
View file

@ -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]