import Gargantext.Database.Schema.Node (NodePoly(..), NodeRead)
import Gargantext.Database.Schema.Node (queryNodeTable)
import Gargantext.Prelude
-import Opaleye (restrict, (.==), Query)
-import Opaleye.PGTypes (pgStrictText, pgInt4)
+import Opaleye (restrict, (.==), Select)
+import Opaleye.SqlTypes (sqlStrictText, sqlInt4)
getRootId :: (HasNodeError err) => User -> Cmd err NodeId
_ -> pure rs
pure rs
-selectRoot :: User -> Query NodeRead
+selectRoot :: User -> Select NodeRead
selectRoot (UserName username) = proc () -> do
row <- queryNodeTable -< ()
users <- queryUserTable -< ()
- restrict -< _node_typename row .== (pgInt4 $ toDBid NodeUser)
- restrict -< user_username users .== (pgStrictText username)
- restrict -< _node_userId row .== (user_id users)
+ restrict -< _node_typename row .== (sqlInt4 $ toDBid NodeUser)
+ restrict -< user_username users .== (sqlStrictText username)
+ restrict -< _node_user_id row .== (user_id users)
returnA -< row
selectRoot (UserDBId uid) = proc () -> do
row <- queryNodeTable -< ()
- restrict -< _node_typename row .== (pgInt4 $ toDBid NodeUser)
- restrict -< _node_userId row .== (pgInt4 uid)
+ restrict -< _node_typename row .== (sqlInt4 $ toDBid NodeUser)
+ restrict -< _node_user_id row .== (sqlInt4 uid)
returnA -< row
selectRoot (RootId nid) =
proc () -> do
row <- queryNodeTable -< ()
- restrict -< _node_typename row .== (pgInt4 $ toDBid NodeUser)
+ restrict -< _node_typename row .== (sqlInt4 $ toDBid NodeUser)
restrict -< _node_id row .== (pgNodeId nid)
returnA -< row
selectRoot UserPublic = panic {-nodeError $ NodeError-} "[G.D.Q.T.Root.selectRoot] No root for Public"