From 7db480af0f944ca0e6c062cd1243c63ad7f878d1 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Thu, 13 Dec 2012 00:45:27 -0400 Subject: whitespace fixes --- Logs/PreferredContent.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'Logs') diff --git a/Logs/PreferredContent.hs b/Logs/PreferredContent.hs index e0eb140b1..3340cf5ef 100644 --- a/Logs/PreferredContent.hs +++ b/Logs/PreferredContent.hs @@ -91,7 +91,7 @@ makeMatcher :: GroupMap -> UUID -> String -> Utility.Matcher.Matcher MatchFiles makeMatcher groupmap u s | s == "standard" = standardMatcher groupmap u | null (lefts tokens) = Utility.Matcher.generate $ rights tokens - | otherwise = matchAll + | otherwise = matchAll where tokens = map (parseToken (Just u) groupmap) (tokenizeMatcher s) -- cgit v1.2.3