0 | module Cheerio.Attributes
 1 |
 2 | import Cheerio.Data
 3 | import Cheerio.Utils
 4 |
 5 | %foreign "node:lambda: (primToMaybe, name, cheerio) => primToMaybe(cheerio.attr(name))"
 6 | prim_attr : (String -> Maybe String) -> String -> Cheerio -> PrimIO (Maybe String)
 7 |
 8 | export
 9 | attr : HasIO io => String -> Cheerio -> io (Maybe String)
10 | attr name cheerio = primIO $ prim_attr primToMaybe name cheerio
11 |
12 |
13 | %foreign "node:lambda: (primToMaybe, cheerio) => primToMaybe(cheerio.val())"
14 | prim_val : (String -> Maybe String) -> Cheerio -> PrimIO (Maybe String)
15 |
16 | export
17 | val : HasIO io => Cheerio -> io (Maybe String)
18 | val cheerio = primIO $ prim_val primToMaybe cheerio
19 |
20 |