[FIX] servant-job instances.

src/Gargantext/API/Orchestrator/Types.hs

@@ -13,6 +13,7 @@ module Gargantext.API.Orchestrator.Types where
 import Gargantext.Prelude
 import Control.Lens hiding (elements)
 import Data.Aeson
+import Data.Proxy
 import Data.Text (Text)
 import Data.Swagger hiding (URL, url, port)
 import GHC.Generics hiding (to)
@@ -22,6 +23,7 @@ import Servant.Job.Types
 import Servant.Job.Utils (jsonOptions)
 import Test.QuickCheck (elements)
 import Test.QuickCheck.Arbitrary
+import Gargantext.API.Ngrams (TODO(..))
 
 instance Arbitrary a => Arbitrary (JobStatus 'Safe a) where
   arbitrary = panic "TODO"
@@ -30,16 +32,16 @@ instance Arbitrary a => Arbitrary (JobOutput a) where
   arbitrary = JobOutput <$> arbitrary
 
 instance ToSchema URL where
-  declareNamedSchema = panic "TODO"
+  declareNamedSchema _ = declareNamedSchema (Proxy :: Proxy TODO)
 
 instance ToSchema AnyOutput where
-  declareNamedSchema = panic "TODO"
+  declareNamedSchema _ = declareNamedSchema (Proxy :: Proxy TODO)
 
 instance ToSchema AnyInput where
-  declareNamedSchema = panic "TODO"
+  declareNamedSchema _ = declareNamedSchema (Proxy :: Proxy TODO)
 
 instance ToSchema AnyEvent where
-  declareNamedSchema = panic "TODO"
+  declareNamedSchema _ = declareNamedSchema (Proxy :: Proxy TODO)
 
 instance (ToSchema (f URL), ToSchema a) => ToSchema (JobInput f a)
 
@@ -147,11 +149,11 @@ instance ToSchema ScraperInput  -- TODO _scin_ prefix
 instance ToSchema ScraperInput2 -- TODO _scin2_ prefix
 instance ToSchema ScraperEvent  -- TODO _scev_ prefix
 
-instance ToParamSchema Offset where
-  toParamSchema = panic "TODO"
+instance ToParamSchema Offset -- where
+  -- toParamSchema = panic "TODO"
 
-instance ToParamSchema Limit where
-  toParamSchema = panic "TODO"
+instance ToParamSchema Limit -- where
+  -- toParamSchema = panic "TODO"
 
 type ScrapersEnv = JobEnv ScraperStatus ScraperStatus
 

stack.yaml

@@ -35,8 +35,9 @@ extra-deps:
     #
 - git: https://gitlab.iscpif.fr/gargantext/patches-class
   commit: 746b4ce0af8f9e600d555ad7e5b2973a940cdad9
-- git: https://github.com/np/servant-job.git
-  commit: 096d197704c1f75daedfb87a820a0f495e83c32c
+- git: https://github.com/delanoe/servant-job.git
+  #- git: https://github.com/np/servant-job.git
+  commit: 3fee20ed7743097d795769ffad8e1866fbd3c665
 - git: https://gitlab.iscpif.fr/gargantext/clustering-louvain.git
   commit: 1c636112b151110408e7c5a28cec39e46657358e
 - git: https://github.com/np/patches-map