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

gratuitous rename

Browse source
This commit is contained in:
Joey Hess 2010-10-18 02:06:27 -04:00
parent 0382d26cdb
commit f3dcc8489d
11 changed files with 33 additions and 35 deletions
Download patch file Download diff file Expand all files Collapse all files

4
Commands.hs
View file

@ -21,7 +21,7 @@ import LocationLog
import Types
import Core
import qualified Remotes
import qualified BackendTypes
import qualified TypeInternals
data CmdWants = FilesInGit | FilesNotInGit | RepoName | SingleString
data Command = Command {
@ -87,7 +87,7 @@ parseCmd argv state = do
[] -> error usage
[Command _ action want _] -> do
f <- findWanted want (drop 1 params)
(BackendTypes.repo state)
(TypeInternals.repo state)
return (flags, map action $ filter notstate f)
where
-- never include files from the state directory