26 lines
557 B
Haskell
26 lines
557 B
Haskell
|
module Basic where
|
||
|
|
|
||
|
|
import Prelude
|
||
|
|
|
||
|
|
import Cheerio (Cheerio, find, length)
|
||
|
|
import Cheerio.Static (loadRoot)
|
||
|
|
import Control.Monad.Eff (Eff)
|
||
|
|
import Control.Monad.Eff.Console (CONSOLE, log)
|
||
|
|
|
||
|
|
htmlEx :: String
|
||
|
|
htmlEx = """
|
||
|
|
<ul id="fruits">
|
||
|
|
<li class="apple">Apple</li>
|
||
|
|
<li class="orange">Orange</li>
|
||
|
|
<li class="pear">Pear</li>
|
||
|
|
</ul>
|
||
|
|
"""
|
||
|
|
|
||
|
|
root :: Cheerio
|
||
|
|
root = loadRoot htmlEx
|
||
|
|
|
||
|
|
example :: forall eff. Eff (console :: CONSOLE | eff) Unit
|
||
|
|
example =
|
||
|
|
let fruitCount = find "#fruits" root # length
|
||
|
|
in log $ "Number of fruits: " <> show fruitCount
|