[search] fix for plainto_tsquery for docs search
[gargantext.git] / src / Gargantext / Database / Query / Table / Node / Select.hs
index bf449769e0f4b5a184ae59d962b25bee2fa6d344..3cba2a6d9460d5d12b440685152aa41db7207501 100644 (file)
@@ -31,12 +31,12 @@ selectNodesWithUsername nt u = runOpaQuery (q u)
   where
     q u' = proc () -> do
       (n,usrs) <- join' -< ()
-      restrict -< user_username usrs .== (toNullable $ pgStrictText u')
-      restrict -< _node_typename n .== (pgInt4 $ toDBid nt)
+      restrict -< user_username usrs .== (toNullable $ sqlStrictText u')
+      restrict -< _node_typename n .== (sqlInt4 $ toDBid nt)
       returnA  -< _node_id n
 
     join' :: Query (NodeRead, UserReadNull)
     join' = leftJoin queryNodeTable queryUserTable on1
       where
-        on1 (n,us) = _node_userId n .== user_id us
+        on1 (n,us) = _node_user_id n .== user_id us