Fix all compilation warnings but one

src/Background.purs

@@ -48,7 +48,7 @@ contentScriptMessageHandler ∷ Port -> RuntimeMessage -> MessageSender → Effe
 contentScriptMessageHandler
   port
   (RuntimeMessagePageContent (UrlJobOffer (JobOfferId jobId)) (OutJobOffer offer))
-  (MessageSender {tab: Just {url, title}}) =
+  (MessageSender {tab: Just {url}}) =
     case maybeMsg offer of
       Just msg -> sendMessageToNative port msg
       Nothing -> error "Job offer sent by content script could not be sent"

src/Content.purs

@@ -35,7 +35,7 @@ main = do
     _ -> log "[content] Nothing to do"
 
 backgroundMessageHandler ∷ RuntimeMessage -> MessageSender → Effect Unit
-backgroundMessageHandler m _ = case m of
+backgroundMessageHandler msg _ = case msg of
   RuntimeMessageRequestPageContent -> launchAff_ waitForDataAndSend
 
   m -> logShow m

src/LinkedIn/Jobs/JobOffer.purs

@@ -2,7 +2,7 @@ module LinkedIn.Jobs.JobOffer where
 
 import Prelude
 
-import Data.Argonaut.Decode (class DecodeJson, decodeJson)
+import Data.Argonaut.Decode (class DecodeJson)
 import Data.Argonaut.Decode.Generic (genericDecodeJson)
 import Data.Argonaut.Encode (class EncodeJson)
 import Data.Argonaut.Encode.Generic (genericEncodeJson)

src/LinkedIn/Queryable.purs

@@ -7,7 +7,6 @@ import Data.List as L
 import Data.List.NonEmpty (NonEmptyList)
 import Data.List.NonEmpty as NEL
 import Data.Maybe (Maybe(..), fromJust)
-import Data.Traversable (traverse)
 import Effect (Effect)
 import Partial.Unsafe (unsafePartial)
 import Web.DOM (Document, Node, ParentNode)

src/LinkedIn/UI/Components/JobsUnifiedTopCard.purs

@@ -163,10 +163,10 @@ instance Traversable TopCardInsightContent where
   traverse = \x -> traverseDefault x
 
 instance Queryable q => CanBeQueried q TopCardInsightContent where
-  query n =
-    queryTopCardInsightContentSecondary n
-    <|> queryTopCardInsightContentButton n
-    <|> queryTopCardInsightContentSingle n
+  query node =
+    queryTopCardInsightContentSecondary node
+    <|> queryTopCardInsightContentButton node
+    <|> queryTopCardInsightContentSingle node
 
     where
       queryTopCardInsightContentSingle n = do
@@ -206,7 +206,7 @@ instance Traversable TopCardSecondaryInsight where
   traverse = \x -> traverseDefault x
 
 instance Queryable q => CanBeQueried q TopCardSecondaryInsight where
-  query n = queryTopCardSecondaryInsightNested n <|> queryTopCardSecondaryInsightPlain n
+  query node = queryTopCardSecondaryInsightNested node <|> queryTopCardSecondaryInsightPlain node
     where
       queryTopCardSecondaryInsightNested n = do
         nested <- queryOne ":scope span[aria-hidden=true]" n