joshuaclayton/unused
1
1
Fork 0
mirror of https://github.com/joshuaclayton/unused.git synced 2024-08-16 08:10:55 +03:00
Code Issues Projects Releases Wiki Activity

Use isPrefixOf and isSuffixOf for simple start/end matches over regex

Browse Source
This commit is contained in:
Joshua Clayton 2016-05-29 16:32:14 -04:00
parent ef0fb49841
commit 95836e536b
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/Unused/ResponseFilter.hs
View File

@ -9,7 +9,7 @@ module Unused.ResponseFilter
) where
import qualified Data.Map.Strict as Map
import Data.List (isInfixOf)
import Data.List (isInfixOf, isPrefixOf, isSuffixOf)
import Unused.Regex (matchRegex)
import Unused.Types
import Unused.ResultsClassifier
@ -60,8 +60,8 @@ matcherToBool (AppOccurrences i) = (== i) . appOccurrenceCount
matcherToBool (AllowedTerms ts) = flip isAllowedTerm ts
positionToRegex :: Position -> (String -> String -> Bool)
positionToRegex StartsWith = \v -> matchRegex ("^" ++ v)
positionToRegex EndsWith = \v -> matchRegex (v ++ "$")
positionToRegex StartsWith = \v -> isPrefixOf v
positionToRegex EndsWith = \v -> isSuffixOf v
positionToRegex Equals = (==)
paths :: TermResults -> [String]