[tree] refactor "root" variable name
[gargantext.git] / src / Gargantext / Database / Schema / NodeNode.hs
index 65a59b05cec55c7e8f18580af73e3c6e381cf086..f2c0b15173da16c52b492efcd2442e5f130fac0c 100644 (file)
@@ -20,7 +20,6 @@ commentary with @some markup@.
 
 module Gargantext.Database.Schema.NodeNode where
 
-import Data.Maybe (Maybe)
 import Gargantext.Core.Types
 import Gargantext.Database.Schema.Prelude
 import Gargantext.Prelude
@@ -54,15 +53,15 @@ $(makeAdaptorAndInstance "pNodeNode" ''NodeNodePoly)
 makeLenses ''NodeNodePoly
 
 nodeNodeTable :: Table NodeNodeWrite NodeNodeRead
-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"
-                                     }
-                                     )
-
-
+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"
+                    }
+                )
 
 instance QueryRunnerColumnDefault (Nullable PGInt4)   Int            where
     queryRunnerColumnDefault = fieldQueryRunnerColumn