Skip to content

haskell-gargantext
haskell-gargantext
Commit 989cc231 authored by Alexandre Delanoë's avatar Alexandre Delanoë
Browse files
Options

[FIX] SQL read only

parent a0bc6f1e
Pipeline #765 failed with stage
    Show whitespace changes
    Inline Side-by-side
    Showing with 6 additions and 1 deletion
    src/Gargantext/Database/Tree.hs
    View file @ 989cc231
    ...@@ -121,7 +121,12 @@ dbTree rootId nodeTypes = map (\(nId, tId, pId, n) -> DbTreeNode nId tId pId n) ...@@ -121,7 +121,12 @@ dbTree rootId nodeTypes = map (\(nId, tId, pId, n) -> DbTreeNode nId tId pId n)
    isDescendantOf :: NodeId -> RootId -> Cmd err Bool isDescendantOf :: NodeId -> RootId -> Cmd err Bool
    isDescendantOf childId rootId = (== [Only True]) isDescendantOf childId rootId = (== [Only True])
    <$> runPGSQuery [sql| WITH RECURSIVE <$> runPGSQuery [sql|
    BEGIN ;
    SET TRANSACTION READ ONLY;
    COMMIT;
    WITH RECURSIVE
    tree (id, parent_id) AS tree (id, parent_id) AS
    ( (
    SELECT c.id, c.parent_id SELECT c.id, c.parent_id
    ......
    Markdown is supported
    0% or
    You are about to add 0 people to the discussion. Proceed with caution.
    Finish editing this message first!
    Please register or to comment