commentary with @some markup@.
-}
-{-# OPTIONS_GHC -fno-warn-orphans #-}
-
{-# LANGUAGE Arrows #-}
{-# LANGUAGE FunctionalDependencies #-}
{-# LANGUAGE QuasiQuotes #-}
module Gargantext.Database.Schema.NodeNode where
-import Data.Maybe (Maybe)
import Gargantext.Core.Types
import Gargantext.Database.Schema.Prelude
import Gargantext.Prelude
, _nn_category :: !cat
} deriving (Show)
-type NodeNodeWrite = NodeNodePoly (Column (PGInt4))
- (Column (PGInt4))
- (Maybe (Column (PGFloat8)))
- (Maybe (Column (PGInt4)))
+type NodeNodeWrite = NodeNodePoly (Column (SqlInt4))
+ (Column (SqlInt4))
+ (Maybe (Column (SqlFloat8)))
+ (Maybe (Column (SqlInt4)))
-type NodeNodeRead = NodeNodePoly (Column (PGInt4))
- (Column (PGInt4))
- (Column (PGFloat8))
- (Column (PGInt4))
+type NodeNodeRead = NodeNodePoly (Column (SqlInt4))
+ (Column (SqlInt4))
+ (Column (SqlFloat8))
+ (Column (SqlInt4))
-type NodeNodeReadNull = NodeNodePoly (Column (Nullable PGInt4))
- (Column (Nullable PGInt4))
- (Column (Nullable PGFloat8))
- (Column (Nullable PGInt4))
+type NodeNodeReadNull = NodeNodePoly (Column (Nullable SqlInt4))
+ (Column (Nullable SqlInt4))
+ (Column (Nullable SqlFloat8))
+ (Column (Nullable SqlInt4))
type NodeNode = NodeNodePoly NodeId NodeId (Maybe Double) (Maybe Int)
nodeNodeTable =
Table "nodes_nodes"
( pNodeNode
- NodeNode { _nn_node1_id = required "node1_id"
- , _nn_node2_id = required "node2_id"
- , _nn_score = optional "score"
- , _nn_category = optional "category"
+ NodeNode { _nn_node1_id = requiredTableField "node1_id"
+ , _nn_node2_id = requiredTableField "node2_id"
+ , _nn_score = optionalTableField "score"
+ , _nn_category = optionalTableField "category"
}
)
-instance QueryRunnerColumnDefault (Nullable PGInt4) Int where
- queryRunnerColumnDefault = fieldQueryRunnerColumn
-
-instance QueryRunnerColumnDefault (Nullable PGFloat8) Int where
- queryRunnerColumnDefault = fieldQueryRunnerColumn
-
-instance QueryRunnerColumnDefault (Nullable PGFloat8) Double where
- queryRunnerColumnDefault = fieldQueryRunnerColumn
-
-instance QueryRunnerColumnDefault PGFloat8 (Maybe Double) where
- queryRunnerColumnDefault = fieldQueryRunnerColumn
-
-instance QueryRunnerColumnDefault PGInt4 (Maybe Int) where
- queryRunnerColumnDefault = fieldQueryRunnerColumn
-