Simplify escapeText.

gregwebs · Aug 28, 2012 · 597b8a6 · 597b8a6
1 parent 48dfbe4
commit 597b8a6
Showing 1 changed file with 2 additions and 3 deletions.
diff --git a/Text/Search/Sphinx.hs b/Text/Search/Sphinx.hs
@@ -63,9 +63,8 @@ escapedChars =  '"':'\\':"-!@~/()*[]="
 --   Most of these characters only need to be escaped in certain contexts
 --   however, in normal searching they will all be ignored
 escapeText :: Text -> Text
-escapeText = X.concatMap (\x -> if x `elem` escapedChars
+escapeText = X.intercalate "\\" . breakBy (`elem` escapedChars)
-                                 then X.pack $ '\\':[x]
+    where breakBy = X.groupBy . const . fmap not
-                                 else X.singleton x)
 
 -- | The 'query' function runs a single query against the Sphinx daemon.
 --   To pipeline multiple queries in a batch, use and 'runQueries'.