Read information from Port on disconnect

src/Background.purs

@@ -27,7 +27,7 @@ main = do
   log "[bg] starting up"
   port <- connectToNativeApplication "job_search_background"
   onNativeMessageAddListener port nativeMessageHandler
-  onNativeDisconnectAddListener port \_ -> log "disconnected from native"
+  onNativeDisconnectAddListener port \p -> log $ "disconnected from native port " <> p.name <> " (" <> p.error <> ")"
 
   sendConfigurationToNative port
 

src/Browser/WebExt/Port.purs

@@ -7,7 +7,7 @@ import Browser.WebExt.Message (Message)
 import Effect (Effect)
 import Effect.Uncurried (EffectFn2, runEffectFn2)
 
-foreign import data Port :: Type
+type Port = {name :: String, error :: String}
 
 foreign import postMessageImpl :: EffectFn2 Port Message Unit
 foreign import onMessageAddListenerImpl :: EffectFn2 Port (Listener Message) Unit