Improve the function name

2017-12-02 09:46:41 +00:00 · 2017-12-02 09:46:41 +00:00 · 8f218307be
commit 8f218307be
parent 57e25eaf39
1 changed files with 2 additions and 2 deletions
--- a/yesod-test/Yesod/Test.hs
+++ b/yesod-test/Yesod/Test.hs
@ -536,10 +536,10 @@ genericNameFromLabel match label = do
    body = simpleBody res
    mlabel = parseHTML body
                $// C.element "label"
-                >=> contentMatches label
+                >=> isContentMatch label
    mfor = mlabel >>= attribute "for"

-    contentMatches x c
+    isContentMatch x c
        | x `match` T.concat (c $// content) = [c]
        | otherwise = []