From 92bd889e61515b80ad0fe96ca3dbbef536fe873c Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Tue, 18 Dec 2012 17:15:11 -0400 Subject: [PATCH] unused --- Git/LsFiles.hs | 6 ------ 1 file changed, 6 deletions(-) diff --git a/Git/LsFiles.hs b/Git/LsFiles.hs index 45e105a3b8..45c830cd6c 100644 --- a/Git/LsFiles.hs +++ b/Git/LsFiles.hs @@ -69,12 +69,6 @@ stagedDetails l repo = do where (metadata, file) = separate (== '\t') s -{- Returns a list of files that have unstaged changes. -} -changedUnstaged :: [FilePath] -> Repo -> IO ([FilePath], IO Bool) -changedUnstaged l = pipeNullSplit params - where - params = Params "diff --name-only -z --" : map File l - {- Returns a list of the files in the specified locations that are staged - for commit, and whose type has changed. -} typeChangedStaged :: [FilePath] -> Repo -> IO ([FilePath], IO Bool)