|
@@ -28,10 +28,13 @@ data NativeMessage =
|
|
|
| NativeMessageStorageReady
|
|
| NativeMessageStorageReady
|
|
|
| NativeMessageStorageUpdated
|
|
| NativeMessageStorageUpdated
|
|
|
| NativeMessageAddJob NewJobOffer
|
|
| NativeMessageAddJob NewJobOffer
|
|
|
|
|
+ | NativeMessageAddCompany NewCompany
|
|
|
| NativeMessageListJobsRequest
|
|
| NativeMessageListJobsRequest
|
|
|
| NativeMessageJobAlreadyExists {job_id :: String}
|
|
| NativeMessageJobAlreadyExists {job_id :: String}
|
|
|
| NativeMessageJobAdded {job_id :: String}
|
|
| NativeMessageJobAdded {job_id :: String}
|
|
|
| NativeMessageJobOfferList (Array NativePythonJobOffer)
|
|
| NativeMessageJobOfferList (Array NativePythonJobOffer)
|
|
|
|
|
+ | NativeMessageCompanyAlreadyExists {name :: String}
|
|
|
|
|
+ | NativeMessageCompanyAdded {name :: String}
|
|
|
|
|
|
|
|
data ApplicationProcess
|
|
data ApplicationProcess
|
|
|
= ApplicationProcessLinkedInSimplified
|
|
= ApplicationProcessLinkedInSimplified
|
|
@@ -78,9 +81,10 @@ type NativePythonJobOffer = {
|
|
|
title :: String,
|
|
title :: String,
|
|
|
url :: String,
|
|
url :: String,
|
|
|
alternate_url :: Maybe String,
|
|
alternate_url :: Maybe String,
|
|
|
- company :: String,
|
|
|
|
|
|
|
+ company_name :: String,
|
|
|
location :: Maybe String,
|
|
location :: Maybe String,
|
|
|
company_domain :: Maybe String,
|
|
company_domain :: Maybe String,
|
|
|
|
|
+ company_kind :: Maybe String,
|
|
|
company_url :: Maybe String,
|
|
company_url :: Maybe String,
|
|
|
flexibility :: Maybe JobFlexibility,
|
|
flexibility :: Maybe JobFlexibility,
|
|
|
comment :: Maybe String,
|
|
comment :: Maybe String,
|
|
@@ -98,12 +102,16 @@ type NewJobOffer = {
|
|
|
url :: String,
|
|
url :: String,
|
|
|
company :: String,
|
|
company :: String,
|
|
|
location :: Maybe String,
|
|
location :: Maybe String,
|
|
|
- company_domain :: Maybe String,
|
|
|
|
|
- company_url :: Maybe String,
|
|
|
|
|
flexibility :: Maybe JobFlexibility,
|
|
flexibility :: Maybe JobFlexibility,
|
|
|
application_process :: Maybe ApplicationProcess
|
|
application_process :: Maybe ApplicationProcess
|
|
|
}
|
|
}
|
|
|
|
|
|
|
|
|
|
+type NewCompany = {
|
|
|
|
|
+ name :: String,
|
|
|
|
|
+ domain :: Maybe String,
|
|
|
|
|
+ url :: Maybe String
|
|
|
|
|
+}
|
|
|
|
|
+
|
|
|
derive instance Generic NativeMessage _
|
|
derive instance Generic NativeMessage _
|
|
|
instance Show NativeMessage where show a = genericShow a
|
|
instance Show NativeMessage where show a = genericShow a
|
|
|
instance EncodeJson NativeMessage where encodeJson a = genericEncodeJson a
|
|
instance EncodeJson NativeMessage where encodeJson a = genericEncodeJson a
|