From 10b9d2a64ce67cd6cf1dae98b589000886c5a722 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Thu, 12 Dec 2013 14:01:24 -0400 Subject: status: Ignore new files that are gitignored. --- Git/LsFiles.hs | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) (limited to 'Git/LsFiles.hs') diff --git a/Git/LsFiles.hs b/Git/LsFiles.hs index 8aaa09067..e1558456f 100644 --- a/Git/LsFiles.hs +++ b/Git/LsFiles.hs @@ -66,11 +66,12 @@ modified l repo = pipeNullSplit params repo where params = [Params "ls-files --modified -z --"] ++ map File l -{- Files that have been modified or are not checked into git. -} +{- Files that have been modified or are not checked into git (and are not + - ignored). -} modifiedOthers :: [FilePath] -> Repo -> IO ([FilePath], IO Bool) modifiedOthers l repo = pipeNullSplit params repo where - params = [Params "ls-files --modified --others -z --"] ++ map File l + params = [Params "ls-files --modified --others --exclude-standard -z --"] ++ map File l {- Returns a list of all files that are staged for commit. -} staged :: [FilePath] -> Repo -> IO ([FilePath], IO Bool) -- cgit v1.2.3