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         = optional "id"
  59                                       , _node_hash_id    = optional "hash_id"
  60                                       , _node_typename   = required "typename"
  61                                       , _node_user_id    = required "user_id"
  62
  63                                       , _node_parent_id  = optional "parent_id"
  64                                       , _node_name       = required "name"
  65                                       , _node_date       = optional "date"
  66
  67                                       , _node_hyperdata  = required "hyperdata"
  68                                       -- ignoring ts_vector field here
  69                                       }
  70                             )
  71
  72 queryNodeTable :: Query NodeRead
  73 queryNodeTable = queryTable nodeTable
  74 ------------------------------------------------------------------------
  75 type NodeWrite = NodePoly (Maybe (Column PGInt4)      )
  76                           (Maybe (Column PGText)      )
  77                                  (Column PGInt4)
  78                                  (Column PGInt4)
  79                           (Maybe (Column PGInt4)      )
  80                                  (Column PGText)
  81                           (Maybe (Column PGTimestamptz))
  82                                  (Column PGJsonb)
  83
  84 type NodeRead = NodePoly (Column PGInt4        )
  85                          (Column PGText        )
  86                          (Column PGInt4        )
  87                          (Column PGInt4        )
  88                          (Column PGInt4        )
  89                          (Column PGText        )
  90                          (Column PGTimestamptz )
  91                          (Column PGJsonb       )
  92
  93 type NodeReadNull = NodePoly (Column (Nullable PGInt4))
  94                              (Column (Nullable PGText))
  95                              (Column (Nullable PGInt4))
  96                              (Column (Nullable PGInt4))
  97                              (Column (Nullable PGInt4))
  98                              (Column (Nullable PGText))
  99                              (Column (Nullable PGTimestamptz))
 100                              (Column (Nullable PGJsonb))
 101 ------------------------------------------------------------------------
 102 -- | Node(Read|Write)Search is slower than Node(Write|Read) use it
 103 -- for full text search only
 104
 105 type NodeSearchWrite =
 106   NodePolySearch
 107     (Maybe  (Column  PGInt4)      )
 108     (Column  PGInt4               )
 109     (Column  PGInt4               )
 110     (Column (Nullable PGInt4)     )
 111     (Column PGText                )
 112     (Maybe  (Column PGTimestamptz))
 113     (Column  PGJsonb              )
 114     (Maybe  (Column PGTSVector)   )
 115
 116 type NodeSearchRead =
 117   NodePolySearch
 118     (Column  PGInt4           )
 119     (Column  PGInt4           )
 120     (Column  PGInt4           )
 121     (Column (Nullable PGInt4 ))
 122     (Column  PGText           )
 123     (Column  PGTimestamptz    )
 124     (Column  PGJsonb          )
 125     (Column  PGTSVector       )
 126
 127 type NodeSearchReadNull =
 128   NodePolySearch
 129     (Column (Nullable PGInt4)       )
 130     (Column (Nullable PGInt4)       )
 131     (Column (Nullable PGInt4)       )
 132     (Column (Nullable PGInt4)       )
 133     (Column (Nullable PGText)       )
 134     (Column (Nullable PGTimestamptz))
 135     (Column (Nullable PGJsonb)      )
 136     (Column (Nullable PGTSVector)   )
 137
 138
 139 data NodePolySearch id
 140                     typename
 141                     user_id
 142                     parent_id
 143                     name
 144                     date
 145                     hyperdata
 146                     search =
 147      NodeSearch { _ns_id           :: id
 148                 , _ns_typename     :: typename
 149                 , _ns_user_id      :: user_id
 150            --   , nodeUniqId       :: shaId
 151                 , _ns_parent_id    :: parent_id
 152                 , _ns_name         :: name
 153                 , _ns_date         :: date
 154
 155                 , _ns_hyperdata    :: hyperdata
 156                 , _ns_search       :: search
 157                 , _ns_search_title :: search
 158                 } deriving (Show, Generic)
 159
 160 $(makeAdaptorAndInstance "pNodeSearch" ''NodePolySearch)
 161 $(makeLensesWith abbreviatedFields ''NodePolySearch)
 162 $(deriveJSON (unPrefix "_ns_")     ''NodePolySearch)
 163 $(makeLenses ''NodePolySearch)
 164
 165 nodeTableSearch :: Table NodeSearchWrite NodeSearchRead
 166 nodeTableSearch = Table "nodes" ( pNodeSearch
 167                                    NodeSearch { _ns_id           = optional "id"
 168                                               , _ns_typename     = required "typename"
 169                                               , _ns_user_id      = required "user_id"
 170
 171                                               , _ns_parent_id    = required "parent_id"
 172                                               , _ns_name         = required "name"
 173                                               , _ns_date         = optional "date"
 174
 175                                               , _ns_hyperdata    = required "hyperdata"
 176                                               , _ns_search       = optional "search"
 177                                               , _ns_search_title = optional "search_title"
 178                                               }
 179                                 )
 180 ------------------------------------------------------------------------