Add prefix to data constructors

src/LinkedIn/Output.purs

@@ -16,7 +16,7 @@ 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
+  UrlProjects _ -> map (map OutProjects) $ run (Proxy :: Proxy ProjectsPage) dom
+  UrlSkills _ ->  map (map OutSkills) $ run (Proxy :: Proxy SkillsPage) dom
+  UrlWorkExperience _ ->  map (map OutWorkExperiences) $ run (Proxy :: Proxy WorkExperiencesPage) dom
+  UrlJobOffer _ -> map (map OutJobOffer) $ run (Proxy :: Proxy JobOfferPage) dom

src/LinkedIn/Output/Types.purs

@@ -11,10 +11,10 @@ import LinkedIn.Profile.Skill (Skill)
 import LinkedIn.Profile.WorkExperience (WorkExperience)
 
 data Output =
-  Projects (NonEmptyList Project)
-  | Skills (NonEmptyList Skill)
-  | WorkExperiences (NonEmptyList WorkExperience)
-  | JobOffer JO.JobOffer
+  OutProjects (NonEmptyList Project)
+  | OutSkills (NonEmptyList Skill)
+  | OutWorkExperiences (NonEmptyList WorkExperience)
+  | OutJobOffer JO.JobOffer
 
 derive instance Generic Output _
 instance Show Output where