[DOC] undo sql upgrade file

devops/postgres/upgrade/0.0.6.7.3_undo.sql

+ALTER TABLE context_node_ngrams
+  DROP COLUMN doc_count ;

src/Gargantext/API/Ngrams/List/Types.hs

+{-|
+Module      : Gargantext.API.Ngrams.List.Types
+Description : Ngrams List Types
+Copyright   : (c) CNRS, 2017-Present
+License     : AGPL + CECILL v3
+Maintainer  : team@gargantext.org
+Stability   : experimental
+Portability : POSIX
+
+-}
+
+
 module Gargantext.API.Ngrams.List.Types where
 
 --{-# LANGUAGE TemplateHaskell   #-}

src/Gargantext/API/Ngrams/Types.hs

--- |
+{-|
+Module      : Gargantext.API.Ngrams.Types
+Description : Ngrams List Types
+Copyright   : (c) CNRS, 2017-Present
+License     : AGPL + CECILL v3
+Maintainer  : team@gargantext.org
+Stability   : experimental
+Portability : POSIX
+-}
 
 {-# LANGUAGE ConstraintKinds   #-}
 {-# LANGUAGE ScopedTypeVariables #-}

src/Gargantext/API/Types.hs

+{-|
+Module      : Gargantext.API..Types
+Description : Ngrams List Types
+Copyright   : (c) CNRS, 2017-Present
+License     : AGPL + CECILL v3
+Maintainer  : team@gargantext.org
+Stability   : experimental
+Portability : POSIX
+
+-}
+
 {-# OPTIONS_GHC -fprint-potential-instances #-}
 
 module Gargantext.API.Types where

src/Gargantext/Core/NodeStoryFile.hs

-{- NOTE This is legacy code. It keeps node stories in a directory
+{-|
+Module      : Gargantext.API.Ngrams.Types
+Description : Ngrams List Types
+Copyright   : (c) CNRS, 2017-Present
+License     : AGPL + CECILL v3
+Maintainer  : team@gargantext.org
+Stability   : experimental
+Portability : POSIX
+
+NOTE This is legacy code. It keeps node stories in a directory
  repo. We now have migrated to the DB. However this code is needed to
- make the migration (see  Gargantext.API.Ngrams.Tools) -}
+ make the migration (see  Gargantext.API.Ngrams.Tools)
+
+-}
 
 module Gargantext.Core.NodeStoryFile where
 

src/Gargantext/Database/Action/Flow.hs

@@ -32,6 +32,7 @@ module Gargantext.Database.Action.Flow -- (flowDatabase, ngrams2list)
 
   , flowCorpusFile
   , flowCorpus
+  , flowCorpusUser
   , flowAnnuaire
   , insertMasterDocs
   , saveDocNgramsWith
@@ -295,7 +296,7 @@ flowCorpusUser :: ( FlowCmdM env err m
                -> User
                -> Either CorpusName [CorpusId]
                -> Maybe c
-               -> [NodeId]
+               -> [ContextId]
                -> Maybe FlowSocialListWith
                -> m CorpusId
 flowCorpusUser l user corpusName ctype ids mfslw = do