Send more information about content

src/Content.purs

@@ -40,8 +40,10 @@ backgroundMessageHandler = case _ of
 extractDataAndSendToBackground ∷ Effect Unit
 extractDataAndSendToBackground = do
   dom <- getBrowserDom
+  ctx <- getContext dom
   data_ <- extractFromDocument dom
   sendMessageToBackground RuntimeMessageContentInit
-  case data_ of
-    Left err -> warn $ "[content] " <> show err
-    Right data_' -> sendMessageToBackground $ RuntimeMessagePageContent data_'
+  case data_, ctx of
+    Left err, _ -> warn $ "[content] " <> show err
+    _, Left err -> warn $ "[content] " <> show err
+    Right data_', Right ctx' -> sendMessageToBackground $ RuntimeMessagePageContent ctx' data_'

src/RuntimeMessage.purs

@@ -23,9 +23,8 @@ import LinkedIn.PageUrl (PageUrl)
 
 data RuntimeMessage =
   RuntimeMessageContentInit
-  | RuntimeMessageContext PageUrl
   | RuntimeMessageRequestPageContent
-  | RuntimeMessagePageContent Output
+  | RuntimeMessagePageContent PageUrl Output
 
 derive instance Generic RuntimeMessage _
 instance Show RuntimeMessage where show = genericShow