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

-Werror fixes

Browse Source
This commit is contained in:
Mark Wotton 2017-06-15 12:17:49 -04:00
parent ee9ef1eac5
commit 2a112b5516
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
yesod-test/Yesod/Test/TransversingCSS.hs
View File

@ -42,7 +42,6 @@ where
import Yesod.Test.CssQuery import Yesod.Test.CssQuery
import qualified Data.Text as T import qualified Data.Text as T
import Control.Applicative ((<$>), (<*>))
import Text.XML import Text.XML
import Text.XML.Cursor import Text.XML.Cursor
import qualified Data.ByteString.Lazy as L import qualified Data.ByteString.Lazy as L
@ -78,7 +77,7 @@ findCursorsBySelector html query =
-- --
-- * Right: List of matching Cursors -- * Right: List of matching Cursors
-- --
-- Since 1.5.7 -- @since 1.5.7
findAttributeBySelector :: HtmlLBS -> Query -> T.Text -> Either String [[T.Text]] findAttributeBySelector :: HtmlLBS -> Query -> T.Text -> Either String [[T.Text]]
findAttributeBySelector html query attr = findAttributeBySelector html query attr =
map (laxAttribute attr) <$> findCursorsBySelector html query map (laxAttribute attr) <$> findCursorsBySelector html query