purescript_linked_in/src/LinkedIn/Output.purs

module LinkedIn.Output where

import Prelude

import Data.Either (Either)
import Effect (Effect)
import LinkedIn (run)
import LinkedIn.Output.Types (Output(..))
import LinkedIn.Page.JobOffer (JobOfferPage)
import LinkedIn.Page.Projects (ProjectsPage)
import LinkedIn.Page.Skills (SkillsPage)
import LinkedIn.Page.WorkExperiences (WorkExperiencesPage)
import LinkedIn.PageUrl (PageUrl(..))
import Type.Proxy (Proxy(..))
import Web.DOM (Document)

toPage ∷ Partial ⇒ PageUrl → Document → Effect (Either String Output)
toPage ctx dom = case ctx of
  UrlProjects _ -> map (map Projects) $ run (Proxy :: Proxy ProjectsPage) dom
  UrlSkills _ ->  map (map Skills) $ run (Proxy :: Proxy SkillsPage) dom
  UrlWorkExperience _ ->  map (map WorkExperiences) $ run (Proxy :: Proxy WorkExperiencesPage) dom
  UrlJobOffer _ -> map (map JobOffer) $ run (Proxy :: Proxy JobOfferPage) dom