[FIX] strict.

a31740fe · Alexandre Delanoë · 2034f5c6 · a31740fe
Commit a31740fe authored Nov 28, 2019 by Alexandre Delanoë
Hide whitespace changes
Inline Side-by-side

Showing with 2 additions and 2 deletions

Types.hs src/Gargantext/API/Orchestrator/Types.hs +2 -2

No files found.
--- a/src/Gargantext/API/Orchestrator/Types.hs
+++ b/src/Gargantext/API/Orchestrator/Types.hs
@@ -99,7 +99,7 @@ instance FromJSON ScraperInput where
 data ScraperInput2 = ScraperInput2
  { _scin2_query     :: !Text
  , _scin2_corpus    :: !Int
-  , _scin2_databases :: [ExternalAPIs]
+  , _scin2_databases :: ![ExternalAPIs]
  }
  deriving Generic

@@ -157,5 +157,5 @@ instance ToParamSchema Limit -- where

 type ScrapersEnv = JobEnv ScraperStatus ScraperStatus

-type ScraperAPI = AsyncJobsAPI ScraperStatus ScraperInput ScraperStatus
+type ScraperAPI  = AsyncJobsAPI ScraperStatus ScraperInput  ScraperStatus
 type ScraperAPI2 = AsyncJobsAPI ScraperStatus ScraperInput2 ScraperStatus