Removed dead NodeStory-related code

src/Gargantext/Core/NodeStory/DB.hs

@@ -14,9 +14,7 @@ Portability : POSIX
 {-# LANGUAGE QuasiQuotes #-}
 
 module Gargantext.Core.NodeStory.DB
-  ( nodeExists
-  , getNodesIdWithType
-  , getNodesArchiveHistory
+  ( getNodesArchiveHistory
   , insertNodeArchiveHistory
   , nodeStoriesQuery
   , insertArchiveStateList
@@ -33,29 +31,15 @@ import Database.PostgreSQL.Simple qualified as PGS
 import Database.PostgreSQL.Simple.SqlQQ (sql)
 import Database.PostgreSQL.Simple.Types (Values(..), QualifiedIdentifier(..))
 import Gargantext.API.Ngrams.Types
-import Gargantext.Core (toDBid)
 import Gargantext.Core.NodeStory.Types ( a_state, a_version, ArchiveList, ArchiveStateList, NgramsStatePatch' )
 import Gargantext.Core.Text.Ngrams (NgramsType)
-import Gargantext.Database.Admin.Types.Node ( NodeId(..), NodeType )
+import Gargantext.Database.Admin.Types.Node ( NodeId(..) )
 import Gargantext.Database.Admin.Config ()
 import Gargantext.Database.Schema.Ngrams ()
 import Gargantext.Prelude hiding (to)
 import Gargantext.Prelude.Database ( runPGSExecute, runPGSExecuteMany, runPGSQuery, runPGSReturning )
 
 
-nodeExists :: PGS.Connection -> NodeId -> IO Bool
-nodeExists c nId = (== [PGS.Only True])
-  <$> runPGSQuery c [sql| SELECT true FROM nodes WHERE id = ? LIMIT 1 |]
-                    (PGS.Only nId)
-
-getNodesIdWithType :: PGS.Connection -> NodeType -> IO [NodeId]
-getNodesIdWithType c nt = do
-  ns <- runPGSQuery c query (PGS.Only $ toDBid nt)
-  pure $ map (\(PGS.Only nId) -> UnsafeMkNodeId nId) ns
-  where
-    query :: PGS.Query
-    query = [sql| SELECT id FROM nodes WHERE typename = ? |]
-
 
 -- /!\ This function is using an hard coded parameter
 -- which depends on the Ngrams List Flow

src/Gargantext/Core/NodeStory/Types.hs

@@ -27,7 +27,6 @@ module Gargantext.Core.NodeStory.Types
   , NodeListStory
   , ArchiveList
   , NodeStoryEnv(..)
-  , initNodeStory
   , nse_getter
   , nse_getter_multi
   , nse_saver_immediate
@@ -37,7 +36,6 @@ module Gargantext.Core.NodeStory.Types
   , Archive(..)
   , initArchive
   , archiveAdvance
-  , unionArchives
   , a_history
   , a_state
   , a_version
@@ -144,16 +142,7 @@ instance (ToJSON s, ToJSON p) => ToJSON (Archive s p) where
 archiveAdvance :: (Semigroup s, Semigroup p) => Archive s p -> Archive s p -> Archive s p
 archiveAdvance aOld aNew = aNew { _a_history = _a_history aNew <> _a_history aOld }
 
--- | This is to merge archive states.
-unionArchives :: (Semigroup s, Semigroup p) => Archive s p -> Archive s p -> Archive s p
-unionArchives aOld aNew = aNew { _a_state = _a_state aOld <> _a_state aNew
-                               , _a_history = _a_history aNew <> _a_history aOld }
-
-
 ------------------------------------------------------------------------
-initNodeStory :: (Monoid s, Semigroup p) => NodeId -> NodeStory s p
-initNodeStory ni = NodeStory $ Map.singleton ni initArchive
-
 initArchive :: (Monoid s, Semigroup p) => Archive s p
 initArchive = Archive { _a_version = 0
                       , _a_state = mempty