From 167523f09d48777f3a5931fdcbc21b9d363e0e6c Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Thu, 27 Jan 2011 17:00:32 -0400 Subject: better directory handling Rename Locations functions for better consitency, and make their values more consistent too. Used rather than manually building paths. There are still more places that manually do so, but are tricky, due to the behavior of when the second FilePath is absolute. So I only changed places where it obviously was relative. --- Command.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'Command.hs') diff --git a/Command.hs b/Command.hs index bedb18cc9..bebbf3f1b 100644 --- a/Command.hs +++ b/Command.hs @@ -187,7 +187,7 @@ filterFiles l = do let regexp = compile (toregex exclude) [] return $ filter (notExcluded regexp) l' where - notState f = not $ isPrefixOf stateLoc f + notState f = not $ isPrefixOf stateDir f notExcluded r f = case match r f [] of Nothing -> True Just _ -> False -- cgit v1.2.3