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

git-annex-shell is complete

Browse source 
still not used
This commit is contained in:
Joey Hess 2010-12-31 13:39:30 -04:00
parent f38aa3e83a
commit 60df4e5728
7 changed files with 134 additions and 20 deletions
Download patch file Download diff file Expand all files Collapse all files

8
git-annex-shell.hs
View file

@ -17,16 +17,16 @@ import Options
import qualified Command.ConfigList
import qualified Command.InAnnex
import qualified Command.DropKey
--import qualified Command.RecvKey
--import qualified Command.SendKey
import qualified Command.RecvKey
import qualified Command.SendKey
cmds :: [Command]
cmds = map adddirparam $ concat
[ Command.ConfigList.command
, Command.InAnnex.command
, Command.DropKey.command
-- , Command.RecvKey.command
-- , Command.SendKey.command
, Command.RecvKey.command
, Command.SendKey.command
]
where
adddirparam c = c { cmdparams = "DIRECTORY " ++ cmdparams c }