[REFACT] FlowList integration to Terms with instances
[gargantext.git] / src / Gargantext / Database / Action / Flow / Utils.hs
index a16112735f2eddf149a73036a29f4b70d51a4cd3..9c295afab2a916162a331d13452ed8eca1bbe6fb 100644 (file)
@@ -16,32 +16,14 @@ module Gargantext.Database.Action.Flow.Utils
 import Data.Map (Map)
 import qualified Data.Map as DM
 
-import Gargantext.Core.Types.Individu (User(..))
 import Gargantext.Database.Admin.Types.Node
 import Gargantext.Database.Admin.Types.Hyperdata (Hyperdata)
 import Gargantext.Database.Prelude (Cmd)
-import Gargantext.Database.Query.Table.Node
-import Gargantext.Database.Query.Table.User
-import Gargantext.Database.Query.Table.Node.Error
 import Gargantext.Database.Query.Table.NodeNodeNgrams
 import Gargantext.Database.Schema.Ngrams
 import Gargantext.Database.Schema.Node
 import Gargantext.Prelude
 
-getUserId :: HasNodeError err
-          => User
-          -> Cmd err UserId
-getUserId (UserDBId uid) = pure uid
-getUserId (RootId   rid) = do
-  n <- getNode rid
-  pure $ _node_userId n
-getUserId (UserName u  ) = do
-  muser <- getUser u
-  case muser of
-    Just user -> pure $ userLight_id user
-    Nothing   -> nodeError NoUserFound
-getUserId UserPublic = nodeError NoUserFound
 
 toMaps :: Hyperdata a
        => (a -> Map (NgramsT Ngrams) Int)
@@ -49,7 +31,7 @@ toMaps :: Hyperdata a
        -> Map (NgramsT Ngrams) (Map NodeId Int)
 toMaps fun ns = mapNodeIdNgrams $ documentIdWithNgrams fun ns'
   where
-    ns' = map (\(Node nId _ _ _ _ _ json) -> DocumentWithId nId json) ns
+    ns' = map (\(Node nId _ _ _ _ _ json) -> DocumentWithId nId json) ns
 
 mapNodeIdNgrams :: Hyperdata a
                 => [DocumentIdWithNgrams a]