use ShellParam type

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

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