Fix all compiler warnings

src/Content.purs

@@ -1,6 +1,5 @@
 module ExampleWebExt.Content where
 
-import LinkedIn
 import Prelude
 
 import Browser.DOM (getBrowserDom)
@@ -16,12 +15,11 @@ import LinkedIn.ArtDecoCard (queryArtDecoCard)
 import LinkedIn.ArtDecoTab (queryArtDecoTab)
 import LinkedIn.DetachedNode (toDetached)
 import LinkedIn.JobsUnifiedTopCard (queryJobsUnifiedTopCardElement)
+import LinkedIn (LinkedInUIElement(..), asPrunedTrees, asTree, getArtDecoCards, getArtDecoTabs, getJobsUnifiedTopCard)
 import LinkedIn.Profile.Project as PP
 import LinkedIn.Profile.Skill as PS
-import LinkedIn.Profile.Utils (toUIElement)
 import LinkedIn.Profile.WorkExperience as PWE
 import LinkedIn.QueryRunner (runQuery)
-import Web.DOM (Node)
 import Yoga.Tree (Tree, showTree)
 
 main :: Effect Unit
@@ -44,7 +42,7 @@ main = do
     Just l -> do
       queried <- (\(LinkedInUIElement _ n) -> runQuery $ queryArtDecoCard n) $ NEL.head l
       case queried of
-        Left l -> logShow l
+        Left l' -> logShow l'
         Right p -> do
           detached <- traverse toDetached p
           logShow detached
@@ -56,7 +54,7 @@ main = do
     Just l -> do
       queried <- (\(LinkedInUIElement _ n) -> runQuery $ queryArtDecoTab n) $ NEL.head l
       case queried of
-        Left l -> logShow l
+        Left l' -> logShow l'
         Right p -> do
           detached <- traverse toDetached p
           logShow detached
@@ -67,7 +65,7 @@ main = do
     Just l -> do
       queried <- (\(LinkedInUIElement _ n) -> runQuery $ queryJobsUnifiedTopCardElement n) $ NEL.head l
       case queried of
-        Left l -> logShow l
+        Left l' -> logShow l'
         Right p -> do
           detached <- traverse toDetached p
           log "parsed OK"

src/LinkedIn/JobsUnifiedTopCard.purs

@@ -5,7 +5,7 @@ import Prelude
 import Control.Monad.Error.Class (throwError)
 import Data.Foldable (class Foldable, foldMap, foldlDefault, foldrDefault)
 import Data.Generic.Rep (class Generic)
-import Data.Lens (Lens, Lens', Prism', lens', prism', toListOf, traversed, view)
+import Data.Lens (Lens', Prism', lens', prism', view)
 import Data.Lens.Record (prop)
 import Data.List.Types (NonEmptyList)
 import Data.Maybe (Maybe(..))

src/LinkedIn/QueryRunner.purs

@@ -16,7 +16,6 @@ import LinkedIn.Utils as U
 import Web.DOM (Node)
 import Web.DOM.Node as N
 import Web.DOM.NodeList as NL
-import Web.DOM.NodeType (NodeType(..))
 import Web.DOM.Text as T
 
 data QueryError =

test/ArtDecoCard.purs

@@ -1,7 +1,5 @@
 module Test.ArtDecoCard where
 
-import LinkedIn.ArtDeco
-import LinkedIn.ArtDecoCard
 import Prelude
 
 import Data.Date (Month(..))
@@ -13,6 +11,8 @@ import Data.Maybe (Maybe(..), isJust)
 import Data.NonEmpty (NonEmpty(..))
 import Data.Traversable (traverse)
 import Effect (Effect)
+import LinkedIn.ArtDeco (ArtDecoCenter(..), ArtDecoCenterContent(..), ArtDecoCenterHeader(..), ArtDecoPvsEntity(..), ArtDecoPvsEntitySubComponent(..))
+import LinkedIn.ArtDecoCard (ArtDecoCardElement(..), queryArtDecoCard)
 import LinkedIn.DetachedNode (DetachedNode(..), toDetached)
 import LinkedIn (LinkedInUIElement(..), getArtDecoCards)
 import LinkedIn.Profile.WorkExperience (WorkExperience(..))
@@ -96,7 +96,7 @@ parseHeadCard ∷ Partial => Maybe (NonEmptyList LinkedInUIElement) → Effect (
 parseHeadCard (Just l) = do
   queried <- (\(LinkedInUIElement _ n) -> runQuery $ queryArtDecoCard n) $ NEL.head l
   case queried of
-    Left l -> pure $ Left l
+    Left l' -> pure $ Left l'
     Right q -> do
       parsed <- traverse toDetached q
       pure $ Right parsed

test/JobsUnifiedTopCard.purs

@@ -1,9 +1,7 @@
 module Test.JobsUnifiedTopCard where
 
-import LinkedIn.JobsUnifiedTopCard
 import Prelude
 
-import Data.Date (Month(..))
 import Data.Either (Either(..))
 import Data.List (List(..), (:))
 import Data.List.NonEmpty (NonEmptyList(..))
@@ -13,16 +11,12 @@ import Data.NonEmpty (NonEmpty(..))
 import Data.Traversable (traverse)
 import Effect (Effect)
 import LinkedIn.DetachedNode (DetachedNode(..), toDetached)
+import LinkedIn.JobsUnifiedTopCard (JobsUnifiedTopCardElement(..), TopCardAction(..), TopCardInsight(..), TopCardInsightContent(..), TopCardPrimaryDescription(..), TopCardSecondaryInsight(..), queryJobsUnifiedTopCardElement)
 import LinkedIn (LinkedInUIElement(..), getJobsUnifiedTopCard)
-import LinkedIn.Profile.WorkExperience (WorkExperience(..))
-import LinkedIn.Profile.WorkExperience as PWE
 import LinkedIn.QueryRunner (QueryError, runQuery)
-import LinkedIn.Types (ParseError(..))
-import LinkedIn.UIElements.Types (Duration(..), TimeSpan(..))
 import Node.JsDom (jsDomFromFile)
 import Partial.Unsafe (unsafePartial)
 import Test.Assert (assert, assertEqual)
-import Test.Utils (toMonthYear')
 
 testJobsUnifiedTopCard :: Effect Unit
 testJobsUnifiedTopCard = do
@@ -155,7 +149,7 @@ parseHeadCard ∷ Partial ⇒ Maybe (NonEmptyList LinkedInUIElement) → Effect
 parseHeadCard (Just l) = do
   queried <- (\(LinkedInUIElement _ n) -> runQuery $ queryJobsUnifiedTopCardElement n) $ NEL.head l
   case queried of
-    Left l -> pure $ Left l
+    Left l' -> pure $ Left l'
     Right q -> do
       parsed <- traverse toDetached q
       pure $ Right parsed