Rename query function

src/Content.purs

@@ -72,7 +72,7 @@ main = do
           log "parsed OK"
           logShow detached
 
-  skillsNode <- runQuery $ PageS.querySkillsPage dom
+  skillsNode <- runQuery $ PageS.query dom
   case skillsNode of
     Left l' -> logShow l'
     Right q -> do

src/LinkedIn/Page/Skills.purs

@@ -37,8 +37,8 @@ instance Traversable SkillsPage where
 
   traverse = \x -> traverseDefault x
 
-querySkillsPage :: QueryRunner' Document (SkillsPage Node)
-querySkillsPage n = do
+query :: QueryRunner' Document (SkillsPage Node)
+query n = do
   tabs <- subQueryMany queryArtDecoTab "div.artdeco-tabs > div > div > div > div > ul > li" n
   pure $ SkillsPage tabs