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

Fix some warnings

Browse Source
This commit is contained in:
Michael Snoyman 2012-03-29 08:44:01 +02:00
parent 6e17c1ae17
commit 7c65829f03
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/CssQuery.hs
View File

@ -51,13 +51,13 @@ directChildren = do
_ <- char '>' _ <- char '>'
_ <- char ' ' _ <- char ' '
sels <- selectors sels <- selectors
optional $ char ' ' _ <- optional $ char ' '
return $ DirectChildren sels return $ DirectChildren sels
deepChildren :: Parser SelectorGroup deepChildren :: Parser SelectorGroup
deepChildren = do deepChildren = do
sels <- selectors sels <- selectors
optional $ char ' ' _ <- optional $ char ' '
return $ DeepChildren sels return $ DeepChildren sels
selectors :: Parser [Selector] selectors :: Parser [Selector]