diff --git a/yesod-test/Yesod/Test.hs b/yesod-test/Yesod/Test.hs
index 82b92e42..5ea789e2 100644
--- 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 = []