From 6be516ae3bddb8f05ea62661019836e03be12a2c Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Thu, 27 Jan 2011 16:31:29 -0400 Subject: [PATCH] use isPrefixOf --- Command.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/Command.hs b/Command.hs index cbfb265002..bedb18cc97 100644 --- a/Command.hs +++ b/Command.hs @@ -13,6 +13,7 @@ import System.Posix.Files import Control.Monad (filterM) import System.Path.WildMatch import Text.Regex.PCRE.Light.Char8 +import Data.List import Types import qualified Backend @@ -186,8 +187,7 @@ filterFiles l = do let regexp = compile (toregex exclude) [] return $ filter (notExcluded regexp) l' where - notState f = stateLoc /= take stateLocLen f - stateLocLen = length stateLoc + notState f = not $ isPrefixOf stateLoc f notExcluded r f = case match r f [] of Nothing -> True Just _ -> False