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

import Control.Applicative for 7.8.4

Browse Source
This commit is contained in:
Mark Wotton 2017-06-15 13:30:58 -04:00
parent 2a112b5516
commit 1bc30deee7
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -42,6 +42,7 @@ where
import Yesod.Test.CssQuery
import qualified Data.Text as T
import qualified Control.Applicative
import Text.XML
import Text.XML.Cursor
import qualified Data.ByteString.Lazy as L
@ -59,7 +60,7 @@ type HtmlLBS = L.ByteString
-- * Right: List of matching Html fragments.
findBySelector :: HtmlLBS -> Query -> Either String [String]
findBySelector html query =
map (renderHtml . toHtml . node) <$> findCursorsBySelector html query
map (renderHtml . toHtml . node) Control.Applicative.<$> findCursorsBySelector html query
-- | Perform a css 'Query' on 'Html'. Returns Either
--
@ -69,7 +70,7 @@ findBySelector html query =
findCursorsBySelector :: HtmlLBS -> Query -> Either String [Cursor]
findCursorsBySelector html query =
runQuery (fromDocument $ HD.parseLBS html)
<$> parseQuery query
Control.Applicative.<$> parseQuery query
-- | Perform a css 'Query' on 'Html'. Returns Either
--
@ -80,7 +81,7 @@ findCursorsBySelector html query =
-- @since 1.5.7
findAttributeBySelector :: HtmlLBS -> Query -> T.Text -> Either String [[T.Text]]
findAttributeBySelector html query attr =
map (laxAttribute attr) <$> findCursorsBySelector html query
map (laxAttribute attr) Control.Applicative.<$> findCursorsBySelector html query
-- Run a compiled query on Html, returning a list of matching Html fragments.