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

refactor param seeking

Browse source
This commit is contained in:
Joey Hess 2010-11-11 18:54:52 -04:00
parent 5357d3a37a
commit da0de293d1
17 changed files with 138 additions and 93 deletions
Download patch file Download diff file Expand all files Collapse all files

3
Command/Get.hs
View file

@ -13,6 +13,9 @@ import Types
import Core
import Messages
seek :: [SubCmdSeek]
seek = [withFilesInGit start]
{- Gets an annexed file from one of the backends. -}
start :: SubCmdStartString
start file = isAnnexed file $ \(key, backend) -> do