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

@ -17,6 +17,9 @@ import Utility
import Core
import Messages
seek :: [SubCmdSeek]
seek = [withFilesInGit start]
{- Fixes the symlink to an annexed file. -}
start :: SubCmdStartString
start file = isAnnexed file $ \(key, _) -> do