Fix haddock parse error
[gargantext.git] / src / Gargantext / API / Prelude.hs
index 83c3b74bf079d9f5db4fd5fc1329c3978de08e33..3fb63b98f989ee1e4e91e9b3897f8a85cf09b241 100644 (file)
@@ -24,9 +24,9 @@ import Control.Concurrent (threadDelay)
 import Control.Exception (Exception)
 import Control.Lens (Prism', (#))
 import Control.Lens.TH (makePrisms)
-import Control.Monad.Error.Class (MonadError(..))
 import Control.Monad.Except (ExceptT)
 import Control.Monad.Reader (ReaderT)
+import Control.Monad.Error.Class (MonadError(..))
 import Crypto.JOSE.Error as Jose
 import Data.Aeson.Types
 import Data.Typeable
@@ -50,6 +50,8 @@ class HasJoseError e where
 joseError :: (MonadError e m, HasJoseError e) => Jose.Error -> m a
 joseError = throwError . (_JoseError #)
 
+type HasJobEnv' env = HasJobEnv env JobLog JobLog
+
 type EnvC env =
   ( HasConnectionPool env
   , HasSettings       env  -- TODO rename HasDbSettings
@@ -70,11 +72,11 @@ type ErrC err =
   )
 
 type GargServerC env err m =
-  ( CmdRandom env err m
+  ( CmdRandom    env err m
   , HasNodeStory env err m
-  , EnvC  env
-  , ErrC      err
-  , ToJSON err
+  , EnvC         env
+  , ErrC             err
+  , ToJSON           err
   )
 
 type GargServerT env err m api = GargServerC env err m => ServerT api m
@@ -100,7 +102,6 @@ type GargNoServer' env err m =
   )
 
 -------------------------------------------------------------------
-
 data GargError
   = GargNodeError    NodeError
   | GargTreeError    TreeError
@@ -131,7 +132,6 @@ instance HasServerError GargError where
 instance HasJoseError GargError where
   _JoseError = _GargJoseError
 
-
 ------------------------------------------------------------------------
 -- | Utils
 -- | Simulate logs