Move Gargantext.Utils.Jobs.API to Gargantext.Utils.Job.Internal

This commit renames the `Gargantext.Utils.Job.API` module to
`Gargantext.Utils.Job.Internal`, because it turns out it's *not* what
Gargantext is using directly; rather, the user-facing function in use
lives at `Gargantext.Utils.Jobs` and is called `serveJobsAPI`. This
distinction makes clearer who is using what.

gargantext.cabal

@@ -101,7 +101,7 @@ library
       Gargantext.Database.Schema.Ngrams
       Gargantext.Defaults
       Gargantext.Utils.Jobs
-      Gargantext.Utils.Jobs.API
+      Gargantext.Utils.Jobs.Internal
       Gargantext.Utils.Jobs.Map
       Gargantext.Utils.Jobs.Monad
       Gargantext.Utils.Jobs.Queue

src/Gargantext/Utils/Jobs.hs

-module Gargantext.Utils.Jobs where
+module Gargantext.Utils.Jobs (
+  -- * Serving the JOBS API
+    serveJobsAPI
+  -- * Parsing and reading @GargJob@s from disk
+  , readPrios
+  ) where
 
 import Control.Monad.Except
 import Control.Monad.Reader
@@ -9,7 +14,7 @@ import Text.Read (readMaybe)
 import Gargantext.API.Admin.EnvTypes
 import Gargantext.API.Admin.Orchestrator.Types (JobLog)
 import Gargantext.API.Prelude
-import qualified Gargantext.Utils.Jobs.API as API
+import qualified Gargantext.Utils.Jobs.Internal as Internal
 import Gargantext.Utils.Jobs.Map
 import Gargantext.Utils.Jobs.Monad
 
@@ -24,7 +29,7 @@ serveJobsAPI
   => GargJob
   -> (input -> Logger JobLog -> GargM Env GargError JobLog)
   -> JobsServerAPI ctI ctO callbacks input
-serveJobsAPI t f = API.serveJobsAPI ask t jobErrorToGargError $ \env i l -> do
+serveJobsAPI t f = Internal.serveJobsAPI ask t jobErrorToGargError $ \env i l -> do
   putStrLn ("Running job of type: " ++ show t)
   runExceptT $ runReaderT (f i l) env
 

src/Gargantext/Utils/Jobs/API.hs → src/Gargantext/Utils/Jobs/Internal.hs

 {-# LANGUAGE TypeFamilies, ScopedTypeVariables #-}
-module Gargantext.Utils.Jobs.API where
+module Gargantext.Utils.Jobs.Internal (serveJobsAPI) where
 
 import Control.Concurrent
 import Control.Concurrent.Async