Remove commented code

bin/gargantext-cli/CLI/Upgrade.hs

@@ -52,47 +52,9 @@ upgradeCLI (UpgradeArgs settingsFile) = do
   let _secret = _s_secret_key $ _gc_secrets cfg
 
   withDevEnv settingsFile $ \_env -> do
-    -- _ <- runCmdDev env addIndex
-    -- _ <- runCmdDev env refreshIndex
-
-
-    ___
     putStrLn ("Uprade done with success !" :: Text)
-    ___
     pure ()
 
--- refreshIndex :: Cmd'' DevEnv IOException ()
--- refreshIndex = do
---   _ <- execPGSQuery [sql| REFRESH MATERIALIZED VIEW CONCURRENTLY context_node_ngrams_view; |] ()
---   pure ()
-
--- addIndex :: Cmd'' DevEnv IOException Int64
--- addIndex = do
---   execPGSQuery query ()
---     where
---       query = [sql|
---         CREATE MATERIALIZED VIEW IF NOT EXISTS context_node_ngrams_view AS
---           SELECT DISTINCT context_node_ngrams.context_id, ngrams_id, nodes_contexts.node_id
---           FROM nodes_contexts
---           JOIN context_node_ngrams
---           ON context_node_ngrams.context_id = nodes_contexts.context_id;
-
---         CREATE INDEX IF NOT EXISTS context_node_ngrams_context_id_ngrams_id_idx
---           ON context_node_ngrams(context_id, ngrams_id);
-
---         CREATE INDEX IF NOT EXISTS context_node_ngrams_view_context_id_idx
---           ON context_node_ngrams_view(context_id);
---         CREATE INDEX IF NOT EXISTS context_node_ngrams_view_ngrams_id_idx
---           ON context_node_ngrams_view(ngrams_id);
---         CREATE INDEX IF NOT EXISTS context_node_ngrams_view_node_id_idx
---           ON context_node_ngrams_view(node_id);
---         CREATE UNIQUE INDEX IF NOT EXISTS context_node_ngrams_view_context_ngrams_node_uniq_idx
---           ON context_node_ngrams_view (context_id, ngrams_id, node_id);
-
---         CREATE INDEX IF NOT EXISTS node_stories_ngrams_id_idx
---           ON node_stories(ngrams_id);
---   |]
-
 upgradeCmd :: HasCallStack => Mod CommandFields CLI
 upgradeCmd = command "upgrade" (info (helper <*> fmap CLISub upgrade_p) (progDesc "Upgrade a Gargantext node."))
 

src/Gargantext/API/Admin/Auth.hs

@@ -229,7 +229,6 @@ All users can access to the Team folder as if they were owner.
 -}
 
 forgotPassword :: IsGargServer env err m => Named.ForgotPasswordAPI (AsServerT m)
-     -- => ForgotPasswordRequest -> Cmd' env err ForgotPasswordResponse
 forgotPassword = Named.ForgotPasswordAPI
   { forgotPasswordPostEp = forgotPasswordPost
   , forgotPasswordGetEp  = forgotPasswordGet