chore: remove unused code

src/Gargantext/Database/Admin/Types/Hyperdata/Document.hs

@@ -67,25 +67,6 @@ data StatusV3  = StatusV3 { statusV3_error  :: !(Maybe Text)
                           , statusV3_action :: !(Maybe Text)
                       } deriving (Show, Generic)
 
-------------------------------------------------------------------------
-data HyperdataDocumentV3 = HyperdataDocumentV3 { _hdv3_publication_day    :: !(Maybe Int)
-                                               , _hdv3_language_iso2      :: !(Maybe Text)
-                                               , _hdv3_publication_second :: !(Maybe Int)
-                                               , _hdv3_publication_minute :: !(Maybe Int)
-                                               , _hdv3_publication_month  :: !(Maybe Int)
-                                               , _hdv3_publication_hour   :: !(Maybe Int)
-                                               , _hdv3_error              :: !(Maybe Text)
-                                               , _hdv3_language_iso3      :: !(Maybe Text)
-                                               , _hdv3_authors            :: !(Maybe Text)
-                                               , _hdv3_publication_year   :: !(Maybe Int)
-                                               , _hdv3_publication_date   :: !(Maybe Text)
-                                               , _hdv3_language_name      :: !(Maybe Text)
-                                               , _hdv3_statuses           :: !(Maybe [StatusV3])
-                                               , _hdv3_realdate_full_     :: !(Maybe Text)
-                                               , _hdv3_source             :: !(Maybe Text)
-                                               , _hdv3_abstract           :: !(Maybe Text)
-                                               , _hdv3_title              :: !(Maybe Text)
-                                               } deriving (Show, Generic)
 
 
 ------------------------------------------------------------------------
@@ -131,7 +112,6 @@ arbitraryHyperdataDocuments =
 -- | Common Instances of Hyperdata
 ------------------------------------------------------------------------
 instance Hyperdata HyperdataDocument
-instance Hyperdata HyperdataDocumentV3
 ------------------------------------------------------------------------
 -- $(deriveJSON (unPrefix "_hd_") ''HyperdataDocument)
 instance ToSchema HyperdataDocument where
@@ -173,7 +153,6 @@ instance ToJSON HyperdataDocument
 
 
 $(deriveJSON (unPrefix "statusV3_") ''StatusV3)
-$(deriveJSON (unPrefix "_hdv3_") ''HyperdataDocumentV3)
 
 --
 -- FromField/ToField instances
@@ -183,27 +162,16 @@ instance FromField HyperdataDocument
   where
     fromField = fromField'
 
-instance FromField HyperdataDocumentV3
-  where
-    fromField = fromField'
-
 instance ToField HyperdataDocument where
   toField = toJSONField
 
-instance ToField HyperdataDocumentV3 where
-  toField = toJSONField
 
 instance DefaultFromField SqlJsonb HyperdataDocument
   where
     defaultFromField = fromPGSFromField
 
-instance DefaultFromField SqlJsonb HyperdataDocumentV3
-  where
-    defaultFromField = fromPGSFromField
-
 --
 -- Lenses
 --
 $(makeLenses ''HyperdataDocument)
 makePrisms ''HyperdataDocument
-$(makeLenses ''HyperdataDocumentV3)

src/Gargantext/Database/Query/Table/Context.hs

@@ -20,7 +20,7 @@ import Gargantext.Core ( HasDBid(toDBid) )
 import Gargantext.Core.Types
 import Gargantext.Core.Types.Query (Limit, Offset)
 import Gargantext.Database.Admin.Types.Hyperdata.Any ( HyperdataAny )
-import Gargantext.Database.Admin.Types.Hyperdata.Document ( HyperdataDocument, HyperdataDocumentV3 )
+import Gargantext.Database.Admin.Types.Hyperdata.Document ( HyperdataDocument )
 import Gargantext.Database.Prelude (DBCmd, JSONB, runOpaQuery)
 import Gargantext.Database.Query.Filter (limit', offset')
 import Gargantext.Database.Query.Table.Node.Error ( HasNodeError, nodeError, NodeError(NoContextFound) )
@@ -79,9 +79,6 @@ selectContextsWith' parentId maybeContextType = proc () -> do
     returnA -< context'
 
 
-------------------------------------------------------------------------
-getDocumentsV3WithParentId :: HasDBid NodeType => NodeId -> DBCmd err [Context HyperdataDocumentV3]
-getDocumentsV3WithParentId n = runOpaQuery $ selectContextsWith' n (Just NodeDocument)
 
 -- TODO: merge with getDocumentsWithParentId by having a class IsHyperdataDocument
 getDocumentsWithParentId :: HasDBid NodeType => NodeId -> DBCmd err [Context HyperdataDocument]