From 8f218307be3ebd53dc2da89ef912f020833d7f9b Mon Sep 17 00:00:00 2001
From: pythonissam <k0uta120u@icloud.com>
Date: Sat, 2 Dec 2017 09:46:41 +0000
Subject: [PATCH] Improve the function name

---
 yesod-test/Yesod/Test.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

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 = []