Skip to content

Commit

Permalink
Update README.MD
Browse files Browse the repository at this point in the history
  • Loading branch information
augyg authored Nov 29, 2021
1 parent 324bb53 commit 0867a13
Showing 1 changed file with 6 additions and 0 deletions.
6 changes: 6 additions & 0 deletions README.MD
Original file line number Diff line number Diff line change
Expand Up @@ -9,5 +9,11 @@ getHtml :: Manager -> Url -> IO (Manager, Html)
elemParser :: Elem -> [(String, Maybe String)] -> Maybe (ParsecT s u m a) -> ParsecT s u m (Elem' a)
el :: Elem -> [(String, String)] ->
runScraperOnHtml :: ParsecT s u Identity a -> Html -> Maybe [a]
:t fmap snd getHtml' "https://google.com" >>= return . (runScraperOnHtml (el "a" [])
>>> IO (Maybe [Elem' a])
```

0 comments on commit 0867a13

Please sign in to comment.