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
Command/Add.hs
View file

@ -17,6 +17,7 @@ import LocationLog
import Types
import Content
import Messages
import Utility
command :: [Command]
command = [Command "add" paramPath seek "add files to annex"]
@ -52,5 +53,5 @@ cleanup file key = do
link <- calcGitLink file key
liftIO $ createSymbolicLink link file
Annex.queue "add" ["--"] file
Annex.queue "add" [Param "--"] file
return True