[ihaskell] remove Codebook since NodeFrameNotebook does the same

gargantext.cabal

@@ -248,7 +248,6 @@ library
       Gargantext.Database.Admin.Trigger.Contexts
       Gargantext.Database.Admin.Trigger.NodesContexts
       Gargantext.Database.Admin.Types.Hyperdata.Any
-      Gargantext.Database.Admin.Types.Hyperdata.Codebook
       Gargantext.Database.Admin.Types.Hyperdata.Contact
       Gargantext.Database.Admin.Types.Hyperdata.Corpus
       Gargantext.Database.Admin.Types.Hyperdata.CorpusField

src/Gargantext/Database/Action/Node.hs

@@ -86,7 +86,9 @@ mkNodeWithParent_ConfigureHyperdata NodeFrameVisio (Just i) uId name =
   mkNodeWithParent_ConfigureHyperdata' NodeFrameVisio (Just i) uId name
 
 mkNodeWithParent_ConfigureHyperdata NodeFrameNotebook (Just i) uId name =
-  insertNode NodeFrameNotebook  (Just "Notebook") (Just $ DefaultFrameCode $ HyperdataFrame "Codebook" name) i uId
+  insertNode NodeFrameNotebook  (Just "Notebook")
+                                (Just $ DefaultFrameCode $ HyperdataFrame { _hf_base = "Codebook"
+                                                                          , _hf_frame_id = name }) i uId
 
 mkNodeWithParent_ConfigureHyperdata    _ _ _ _ = nodeError NotImplYet
 

src/Gargantext/Database/Admin/Config.hs

@@ -66,8 +66,6 @@ nodeTypeId n =
     NodeListCooc  -> 50
     NodeModel -> 52
 
-    NodeCodebook      -> 6
-
 ----  Scores
 --    NodeOccurrences -> 10
     NodeGraph       -> 9

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

@@ -14,7 +14,6 @@ Portability : POSIX
 module Gargantext.Database.Admin.Types.Hyperdata
   ( module Gargantext.Database.Admin.Types.Hyperdata.Any
   , module Gargantext.Database.Admin.Types.Hyperdata.Contact
-  , module Gargantext.Database.Admin.Types.Hyperdata.Codebook
   , module Gargantext.Database.Admin.Types.Hyperdata.Corpus
   , module Gargantext.Database.Admin.Types.Hyperdata.Dashboard
   , module Gargantext.Database.Admin.Types.Hyperdata.Document
@@ -33,7 +32,6 @@ module Gargantext.Database.Admin.Types.Hyperdata
 
 import Gargantext.Database.Admin.Types.Hyperdata.Any
 import Gargantext.Database.Admin.Types.Hyperdata.Contact
-import Gargantext.Database.Admin.Types.Hyperdata.Codebook
 import Gargantext.Database.Admin.Types.Hyperdata.Corpus
 import Gargantext.Database.Admin.Types.Hyperdata.Dashboard
 import Gargantext.Database.Admin.Types.Hyperdata.Document

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

-{-# LANGUAGE TemplateHaskell            #-}
-
-module Gargantext.Database.Admin.Types.Hyperdata.Codebook where
-
-import Gargantext.Database.Admin.Types.Hyperdata.Prelude
-
-
-data HyperdataCodebook =
-  HyperdataCodebook { _hco_name :: !Text }
-
-defaultHyperdataCodebook :: HyperdataCodebook
-defaultHyperdataCodebook = HyperdataCodebook ""
-
-$(deriveJSON (unPrefix "_hco_") ''HyperdataCodebook)

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

@@ -57,8 +57,6 @@ data DefaultHyperdata =
 
   | DefaultFile          HyperdataFile
 
-  | DefaultCodebook      HyperdataCodebook
-
 instance Hyperdata DefaultHyperdata
 
 instance ToJSON DefaultHyperdata where
@@ -92,8 +90,6 @@ instance ToJSON DefaultHyperdata where
 
   toJSON (DefaultFile x) = toJSON x
 
-  toJSON (DefaultCodebook x) = toJSON x
-
 
 defaultHyperdata :: NodeType -> DefaultHyperdata
 defaultHyperdata NodeUser           = DefaultUser    defaultHyperdataUser
@@ -125,5 +121,3 @@ defaultHyperdata NodeFrameVisio     = DefaultFrameVisio defaultHyperdataFrame
 defaultHyperdata NodeFrameNotebook      = DefaultFrameCalc  defaultHyperdataFrame
 
 defaultHyperdata NodeFile           = DefaultFile defaultHyperdataFile
-
-defaultHyperdata NodeCodebook       = DefaultCodebook defaultHyperdataCodebook

src/Gargantext/Database/Admin/Types/Node.hs

@@ -353,7 +353,6 @@ data NodeType = NodeUser
               -- Optional Nodes
               | NodeFrameWrite | NodeFrameCalc | NodeFrameVisio | NodeFrameNotebook
               | NodeFile
-              | NodeCodebook
 
   deriving (Show, Read, Eq, Generic, Bounded, Enum)
 
@@ -394,8 +393,6 @@ defaultName NodeFrameNotebook = "Code"
 
 defaultName NodeFile          = "File"
 
-defaultName NodeCodebook      = "Codebook"
-
 
 instance FromJSON NodeType
 instance ToJSON NodeType

stack.yaml

@@ -5,6 +5,7 @@ extra-package-dbs: []
 skip-ghc-check: true
 packages:
 - .
+
   #- 'deps/gargantext-graph'
   #- 'deps/haskell-opaleye'