[CLEAN] renaming unexplicit fun
[gargantext.git] / src / Gargantext / Database / Schema / Node_NodeNgramsNodeNgrams.hs
index 927271a6436fb1d13be3dedab3413a9605e6ba1a..f4840d2b320fb2770277bb8dc24dea3bedd9c5bb 100644 (file)
@@ -21,34 +21,26 @@ Next Step benchmark:
 
 -}
 
+{-# OPTIONS_GHC -fno-warn-orphans   #-}
+
 {-# LANGUAGE Arrows                 #-}
-{-# LANGUAGE FlexibleInstances      #-}
 {-# LANGUAGE FunctionalDependencies #-}
-{-# LANGUAGE MultiParamTypeClasses  #-}
-{-# LANGUAGE NoImplicitPrelude      #-}
-{-# LANGUAGE OverloadedStrings      #-}
 {-# LANGUAGE QuasiQuotes            #-}
-{-# LANGUAGE RankNTypes             #-}
 {-# LANGUAGE TemplateHaskell        #-}
-{-# OPTIONS_GHC -fno-warn-orphans   #-}
 
 module Gargantext.Database.Schema.Node_NodeNgramsNodeNgrams
   where
 
-import Control.Lens.TH (makeLensesWith, abbreviatedFields)
-import Data.Maybe (Maybe)
-import Data.Profunctor.Product.TH (makeAdaptorAndInstance)
-import Gargantext.Database.Utils (Cmd, runOpaQuery, mkCmd)
-import Gargantext.Database.Types.Node (CorpusId)
-import Gargantext.Database.Schema.Node (pgNodeId)
+import Gargantext.Database.Schema.Prelude
+import Gargantext.Database.Admin.Types.Node (CorpusId)
+import Gargantext.Database.Schema.Node()
 import Gargantext.Prelude
-import Opaleye
 
 data Node_NodeNgrams_NodeNgrams_Poly node_id nng1_id nng2_id weight =
-  Node_NodeNgrams_NodeNgrams { _nnn_node_id :: node_id
-                             , _nnn_nng1_id :: nng1_id
-                             , _nnn_nng2_id :: nng2_id
-                             , _nnn_weight  :: weight
+  Node_NodeNgrams_NodeNgrams { _nnn_node_id :: !node_id
+                             , _nnn_nng1_id :: !nng1_id
+                             , _nnn_nng2_id :: !nng2_id
+                             , _nnn_weight  :: !weight
                              } deriving (Show)
 
 type Node_NodeNgrams_NodeNgrams_Write =
@@ -87,35 +79,9 @@ node_NodeNgrams_NodeNgrams_Table =
                        }
        )
 
-queryNode_NodeNgrams_NodeNgrams_Table :: Query Node_NodeNgrams_NodeNgrams_Read
-queryNode_NodeNgrams_NodeNgrams_Table = queryTable node_NodeNgrams_NodeNgrams_Table
-
--- | Select NodeNgramsNgrams
--- TODO not optimized (get all ngrams without filters)
-node_Node_NodeNgrams_NodeNgrams :: Cmd err [Node_NodeNgrams_NodeNgrams]
-node_Node_NodeNgrams_NodeNgrams = runOpaQuery queryNode_NodeNgrams_NodeNgrams_Table
-
 instance QueryRunnerColumnDefault PGInt4 (Maybe Int) where
     queryRunnerColumnDefault = fieldQueryRunnerColumn
 
 instance QueryRunnerColumnDefault PGFloat8 (Maybe Double) where
     queryRunnerColumnDefault = fieldQueryRunnerColumn
 
-
--- TODO: Add option on conflict
-insert_Node_NodeNgrams_NodeNgrams :: [Node_NodeNgrams_NodeNgrams] -> Cmd err Int64
-insert_Node_NodeNgrams_NodeNgrams = insert_Node_NodeNgrams_NodeNgrams_W
-                 . map (\(Node_NodeNgrams_NodeNgrams n ng1 ng2 maybeWeight) ->
-                          Node_NodeNgrams_NodeNgrams (pgNodeId n  )
-                                           (pgInt4 <$> ng1)
-                                           (pgInt4 ng2)
-                                           (pgDouble <$> maybeWeight)
-                        )
-
-insert_Node_NodeNgrams_NodeNgrams_W :: [Node_NodeNgrams_NodeNgrams_Write] -> Cmd err Int64
-insert_Node_NodeNgrams_NodeNgrams_W ns =
-  mkCmd $ \c -> runInsert_ c Insert { iTable = node_NodeNgrams_NodeNgrams_Table
-                                    , iRows  = ns
-                                    , iReturning = rCount
-                                    , iOnConflict = (Just DoNothing)
-                                    }