Avoid passing port argument twice in handler init

make_prod.patch

@@ -21,6 +21,6 @@ index b73fd21..86d7396 100644
    log "[bg] starting up"
 -  port <- connectToNativeApplication "job_search_background"
 +  port <- connectToNativeApplication "job_search_background.prod"
-   -- TODO: This is redundant to send "port" to both addListener and the handler
-   onNativeMessageAddListener port $ nativeMessageHandler port
+
+   onNativeMessageAddListener port nativeMessageHandler
    onNativeDisconnectAddListener port \p -> log $ "disconnected from native port " <> p.name <> " (" <> p.error <> ")"

src/Background.purs

@@ -29,8 +29,8 @@ main :: Effect Unit
 main = do
   log "[bg] starting up"
   port <- connectToNativeApplication "job_search_background"
-  -- TODO: This is redundant to send "port" to both addListener and the handler
-  onNativeMessageAddListener port $ nativeMessageHandler port
+
+  onNativeMessageAddListener port nativeMessageHandler
   onNativeDisconnectAddListener port \p -> log $ "disconnected from native port " <> p.name <> " (" <> p.error <> ")"
 
   sendConfigurationToNative port

src/NativeMessage.purs

@@ -86,13 +86,13 @@ decodeNativeMessage m =
     Left err -> Left $ printJsonDecodeError err
     Right m' -> Right m'
 
-onNativeMessageAddListener ∷ Port → (NativeMessage → Effect Unit) → Effect Unit
+onNativeMessageAddListener ∷ Port → (Port -> NativeMessage → Effect Unit) → Effect Unit
 onNativeMessageAddListener port f = onMessageAddListener port $ runtimeMessageHandler
   where
     runtimeMessageHandler = mkListener \m -> do
       case decodeNativeMessage m of
         Left err -> log err
-        Right m' -> f m'
+        Right m' -> f port m'
 
 onNativeDisconnectAddListener :: Port -> (Port -> Effect Unit) -> Effect Unit
 onNativeDisconnectAddListener port f = onDisconnectAddListener port $ mkListener f