src/Gargantext/Database/Schema/Node.hs

   1 {-|
   2 Module      : Gargantext.Database.Schema.Node
   3 Description : Main requests of Node to the database
   4 Copyright   : (c) CNRS, 2017-Present
   5 License     : AGPL + CECILL v3
   6 Maintainer  : team@gargantext.org
   7 Stability   : experimental
   8 Portability : POSIX
   9 -}
  10
  11
  12 {-# OPTIONS_GHC -fno-warn-orphans        #-}
  13
  14 {-# LANGUAGE Arrows                 #-}
  15 {-# LANGUAGE ConstraintKinds        #-}
  16 {-# LANGUAGE FunctionalDependencies #-}
  17 {-# LANGUAGE TemplateHaskell        #-}
  18 {-# LANGUAGE TypeFamilies           #-}
  19
  20 module Gargantext.Database.Schema.Node where
  21
  22 import Control.Lens hiding (elements, (&))
  23 import Gargantext.Database.Schema.Prelude
  24 import Prelude hiding (null, id, map, sum)
  25
  26 ------------------------------------------------------------------------
  27 -- Main polymorphic Node definition
  28 data NodePoly id
  29               hash_id
  30               typename
  31               user_id
  32               parent_id
  33               name
  34               date
  35               hyperdata  =
  36      Node { _node_id        :: !id
  37           , _node_hash_id   :: !hash_id
  38           , _node_typename  :: !typename
  39
  40           , _node_user_id    :: !user_id
  41           , _node_parent_id  :: !parent_id
  42
  43           , _node_name      :: !name
  44           , _node_date      :: !date
  45
  46           , _node_hyperdata :: !hyperdata
  47           } deriving (Show, Generic)
  48
  49 ------------------------------------------------------------------------
  50 -- Automatic instances derivation
  51 $(deriveJSON (unPrefix "_node_") ''NodePoly)
  52 $(makeLenses ''NodePoly)
  53
  54 $(makeAdaptorAndInstance "pNode"   ''NodePoly)
  55 $(makeLensesWith abbreviatedFields ''NodePoly)
  56
  57 nodeTable :: Table NodeWrite NodeRead
  58 nodeTable = Table "nodes" (pNode Node { _node_id         = optionalTableField "id"
  59                                       , _node_hash_id    = optionalTableField "hash_id"
  60                                       , _node_typename   = requiredTableField "typename"
  61                                       , _node_user_id    = requiredTableField "user_id"
  62
  63                                       , _node_parent_id  = optionalTableField "parent_id"
  64                                       , _node_name       = requiredTableField "name"
  65                                       , _node_date       = optionalTableField "date"
  66
  67                                       , _node_hyperdata  = requiredTableField "hyperdata"
  68                                       -- ignoring ts_vector field here
  69                                       }
  70                             )
  71
  72 queryNodeTable :: Query NodeRead
  73 queryNodeTable = selectTable nodeTable
  74 ------------------------------------------------------------------------
  75 type NodeWrite = NodePoly (Maybe (Field SqlInt4)      )
  76                           (Maybe (Field SqlText)      )
  77                                  (Field SqlInt4)
  78                                  (Field SqlInt4)
  79                           (Maybe (Field SqlInt4)      )
  80                                  (Field SqlText)
  81                           (Maybe (Field SqlTimestamptz))
  82                                  (Field SqlJsonb)
  83
  84 type NodeRead = NodePoly (Field SqlInt4        )
  85                          (Field SqlText        )
  86                          (Field SqlInt4        )
  87                          (Field SqlInt4        )
  88                          (Field SqlInt4        )
  89                          (Field SqlText        )
  90                          (Field SqlTimestamptz )
  91                          (Field SqlJsonb       )
  92 ------------------------------------------------------------------------
  93 -- | Node(Read|Write)Search is slower than Node(Write|Read) use it
  94 -- for full text search only
  95
  96 type NodeSearchWrite =
  97   NodePolySearch
  98     (Maybe  (Field  SqlInt4)      )
  99     (Field  SqlInt4               )
 100     (Field  SqlInt4               )
 101     (FieldNullable SqlInt4)
 102     (Field SqlText                )
 103     (Maybe  (Field SqlTimestamptz))
 104     (Field  SqlJsonb              )
 105     (Maybe  (Field SqlTSVector)   )
 106
 107 type NodeSearchRead =
 108   NodePolySearch
 109     (Field  SqlInt4           )
 110     (Field  SqlInt4           )
 111     (Field  SqlInt4           )
 112     (FieldNullable SqlInt4 )
 113     (Field  SqlText           )
 114     (Field  SqlTimestamptz    )
 115     (Field  SqlJsonb          )
 116     (Field  SqlTSVector       )
 117
 118
 119 data NodePolySearch id
 120                     typename
 121                     user_id
 122                     parent_id
 123                     name
 124                     date
 125                     hyperdata
 126                     search =
 127      NodeSearch { _ns_id           :: id
 128                 , _ns_typename     :: typename
 129                 , _ns_user_id      :: user_id
 130            --   , nodeUniqId       :: shaId
 131                 , _ns_parent_id    :: parent_id
 132                 , _ns_name         :: name
 133                 , _ns_date         :: date
 134
 135                 , _ns_hyperdata    :: hyperdata
 136                 , _ns_search       :: search
 137                 } deriving (Show, Generic)
 138
 139 $(makeAdaptorAndInstance "pNodeSearch" ''NodePolySearch)
 140 $(makeLensesWith abbreviatedFields ''NodePolySearch)
 141 $(deriveJSON (unPrefix "_ns_")     ''NodePolySearch)
 142 $(makeLenses ''NodePolySearch)
 143
 144 nodeTableSearch :: Table NodeSearchWrite NodeSearchRead
 145 nodeTableSearch = Table "nodes" ( pNodeSearch
 146                                    NodeSearch { _ns_id           = optionalTableField "id"
 147                                               , _ns_typename     = requiredTableField "typename"
 148                                               , _ns_user_id      = requiredTableField "user_id"
 149
 150                                               , _ns_parent_id    = requiredTableField "parent_id"
 151                                               , _ns_name         = requiredTableField "name"
 152                                               , _ns_date         = optionalTableField "date"
 153
 154                                               , _ns_hyperdata    = requiredTableField "hyperdata"
 155                                               , _ns_search       = optionalTableField "search"
 156                                               }
 157                                 )
 158 ------------------------------------------------------------------------