haskell/yesod
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Improve the function name

Browse Source
This commit is contained in:
pythonissam 2017-12-02 09:46:41 +00:00
parent 57e25eaf39
commit 8f218307be
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
yesod-test/Yesod/Test.hs
View File

@ -536,10 +536,10 @@ genericNameFromLabel match label = do
body = simpleBody res body = simpleBody res
mlabel = parseHTML body mlabel = parseHTML body
$// C.element "label" $// C.element "label"
>=> contentMatches label >=> isContentMatch label
mfor = mlabel >>= attribute "for" mfor = mlabel >>= attribute "for"
contentMatches x c isContentMatch x c
| x `match` T.concat (c $// content) = [c] | x `match` T.concat (c $// content) = [c]
| otherwise = [] | otherwise = []