[fix] Send a message when a job is added

native/src/job_search/messages.py

@@ -144,6 +144,13 @@ class JobAddedMessage(NativeMessage):
         return {"tag": "NativeMessageJobAdded", "values": [asdict(self)]}
 
 
+@dataclass
+class JobAddedNewMessage(NativeMessage):
+    job_id: str
+
+    def serialize(self):
+        return {"tag": "NativeMessageJobAddedNew", "values": [asdict(self)]}
+
 @dataclass
 class JobAlreadyExistsMessage(NativeMessage):
     job_id: str

native/src/job_search/writer.py

@@ -4,7 +4,7 @@ from pathlib import Path
 from dataclasses import asdict
 
 from job_search.read_write import ReadWriter
-from job_search.job_storage import JobStorage
+from job_search.job_storage import JobStorage, JobOffer
 from job_search.messages import (
     VisitedLinkedInJobPageMessage,
     AddJobMessage,
@@ -15,6 +15,7 @@ from job_search.messages import (
     LogMessage,
     Message,
     JobAddedMessage,
+    JobAddedNewMessage,
     JobAlreadyExistsMessage,
 )
 
@@ -38,6 +39,7 @@ class Application:
             case AddJobMessage():
                 try:
                     self.job_storage.insert_record("job_offer", asdict(message))
+                    self.read_writer.send_message(JobAddedNewMessage(message.id))
                 except FileExistsError as e:
                     self.read_writer.send_message(JobAlreadyExistsMessage(message.id))
 

src/Background.purs

@@ -93,6 +93,7 @@ nativeMessageHandler _ (NativeMessageJobOfferList job_offers) = do
     storeJob jo
 
 nativeMessageHandler port NativeMessageStorageReady = sendMessageToNative port $ NativeMessageListJobsRequest
+nativeMessageHandler port (NativeMessageJobAddedNew _) = sendMessageToNative port $ NativeMessageListJobsRequest
 nativeMessageHandler _ m = logShow m
 
 sendConfigurationToNative ∷ Port → Effect Unit

src/NativeMessage.purs

@@ -40,6 +40,7 @@ data NativeMessage =
   }
   | NativeMessageJobAlreadyExists {job_id :: String}
   | NativeMessageJobAdded {job :: NativePythonJobOffer}
+  | NativeMessageJobAddedNew {job_id :: String}
   | NativeMessageJobOfferList (Array NativePythonJobOffer)
 
 data ApplicationProcess
@@ -82,7 +83,7 @@ type NativePythonJobOffer = {
 }
 
 derive instance Generic NativeMessage _
-instance Show NativeMessage where show = genericShow
+instance Show NativeMessage where show a = genericShow a
 instance EncodeJson NativeMessage where encodeJson a = genericEncodeJson a
 
 instance DecodeJson NativeMessage where