[WIP] How to graph my writings ?
[gargantext.git] / src / Gargantext / Utils / Jobs / API.hs
index b12a475b52ba5bc81d9bc9437466b78b2eb2b1f1..6cc27af706d1d27a77b950e00b6aa4b211527c4f 100644 (file)
@@ -9,6 +9,7 @@ import Control.Monad
 import Control.Monad.Except
 import Data.Aeson (ToJSON)
 import Data.Monoid
+import Data.Kind (Type)
 import Prelude
 import Servant.API
 
@@ -38,7 +39,7 @@ serveJobsAPI getenv t joberr f
   :<|> serveJobAPI t joberr
 
 serveJobAPI
-  :: forall (m :: * -> *) e t event output.
+  :: forall (m :: Type -> Type) e t event output.
      (Ord t, MonadError e m, MonadJob m t (Dual [event]) output)
   => t
   -> (JobError -> e)