From 2a112b551688048eb9ebfbf8039564631742969f Mon Sep 17 00:00:00 2001 From: Mark Wotton Date: Thu, 15 Jun 2017 12:17:49 -0400 Subject: [PATCH] -Werror fixes --- yesod-test/Yesod/Test/TransversingCSS.hs | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/yesod-test/Yesod/Test/TransversingCSS.hs b/yesod-test/Yesod/Test/TransversingCSS.hs index bcf555a6..806fb285 100644 --- a/yesod-test/Yesod/Test/TransversingCSS.hs +++ b/yesod-test/Yesod/Test/TransversingCSS.hs @@ -42,7 +42,6 @@ where import Yesod.Test.CssQuery import qualified Data.Text as T -import Control.Applicative ((<$>), (<*>)) import Text.XML import Text.XML.Cursor import qualified Data.ByteString.Lazy as L @@ -78,7 +77,7 @@ findCursorsBySelector html query = -- -- * Right: List of matching Cursors -- --- Since 1.5.7 +-- @since 1.5.7 findAttributeBySelector :: HtmlLBS -> Query -> T.Text -> Either String [[T.Text]] findAttributeBySelector html query attr = map (laxAttribute attr) <$> findCursorsBySelector html query