Renamed `CmdM'` -> `IsCmd`

src/Gargantext/API/Ngrams/Types.hs

@@ -47,7 +47,7 @@ import Gargantext.Core.Utils.Aeson (jsonOptions)
 import Gargantext.Core.Utils.Prefix (unPrefix, unPrefixUntagged, unPrefixSwagger)
 import Gargantext.Core.Utils.Swagger (wellNamedSchema)
 import Gargantext.Database.Admin.Types.Node (ContextId)
-import Gargantext.Database.Prelude (fromField', HasConnectionPool, CmdM')
+import Gargantext.Database.Prelude (fromField', HasConnectionPool, IsCmd)
 import Gargantext.Prelude hiding (IsString, hash, from, replace, to)
 import Gargantext.Prelude.Crypto.Hash (IsHashable(..))
 import Gargantext.Utils.Servant (TSV, ZIP)
@@ -730,7 +730,7 @@ initRepo = Repo 1 mempty []
 --------------------
 
 type RepoCmdM   env err m =
-  ( CmdM'             env err m
+  ( IsCmd             env err m
   , HasConnectionPool env
   , HasConfig         env
   )

src/Gargantext/Database/Prelude.hs

@@ -59,7 +59,7 @@ type CmdM'' env err m =
   , MonadRandom             m
   )
 
-type CmdM' env err m =
+type IsCmd env err m =
   ( MonadReader     env     m
   , MonadError          err m
   , MonadBaseControl IO     m
@@ -82,19 +82,19 @@ type IsDBEnvExtra env =
   )
 
 type CmdM env err m =
-  ( CmdM'        env err m
+  ( IsCmd        env err m
   , IsDBEnvExtra env
   )
 
 type CmdRandom env err m =
-  ( CmdM'             env err m
+  ( IsCmd             env err m
   , IsDBEnv           env
   , MonadRandom       m
   , HasMail           env
   )
 
 type Cmd''  env err a = forall m.     CmdM''    env err m => m a
-type Cmd'   env err a = forall m.     CmdM'     env err m => m a
+type Cmd'   env err a = forall m.     IsCmd     env err m => m a
 type Cmd        err a = forall m env. CmdM      env err m => m a
 type CmdR       err a = forall m env. CmdRandom env err m => m a
 type DBCmd' env err a = forall m.     DbCmd'    env err m => m a
@@ -104,7 +104,7 @@ type DBCmd      err a = forall m env. DbCmd'    env err m => m a
 -- to use the Gargantext Database. It's important, to ease testability,
 -- that these constraints stays as few as possible.
 type DbCmd' env err m = (
-    CmdM' env err m
+    IsCmd env err m
   , IsDBEnv env
   )