Merge remote-tracking branch 'origin/dev-hackathon-fixes' into dev
[gargantext.git] / src / Gargantext / Database / Query / Tree / Root.hs
index e644e7df1b5b19ca0b393ebd745195ad6d21abdc..446a89197e2ca0a2eebe8c8a0911caa2ca4f3425 100644 (file)
@@ -30,7 +30,7 @@ import Gargantext.Database.Query.Table.User (queryUserTable, UserPoly(..))
 import Gargantext.Database.Schema.Node (NodePoly(..), NodeRead)
 import Gargantext.Database.Schema.Node (queryNodeTable)
 import Gargantext.Prelude
-import Opaleye (restrict, (.==), Query)
+import Opaleye (restrict, (.==), Select)
 import Opaleye.SqlTypes (sqlStrictText, sqlInt4)
 
 
@@ -115,7 +115,7 @@ mkRoot user = do
          _   -> pure rs
        pure rs
 
-selectRoot :: User -> Query NodeRead
+selectRoot :: User -> Select NodeRead
 selectRoot (UserName username) = proc () -> do
     row   <- queryNodeTable -< ()
     users <- queryUserTable -< ()