diff --git a/src/Database/Persist/Sql/Graph/TransitiveReduction.hs b/src/Database/Persist/Sql/Graph/TransitiveReduction.hs index 240c5c2..b4624b8 100644 --- a/src/Database/Persist/Sql/Graph/TransitiveReduction.hs +++ b/src/Database/Persist/Sql/Graph/TransitiveReduction.hs @@ -113,8 +113,6 @@ trrSelect proxy = do , "ARRAY[", entityDB tNode ^* fieldDB (entityId tNode), "], " , "FALSE" , " FROM ", dbname $ entityDB tNode - , " WHERE ", entityDB tNode ^* fieldDB (entityId tNode) - , " = ANY(?)" , " UNION ALL " , sqlStep fwd bwd , " )" @@ -197,8 +195,6 @@ trrApply proxy = do , "ARRAY[", entityDB tNode ^* fieldDB (entityId tNode), "], " , "FALSE" , " FROM ", dbname $ entityDB tNode - , " WHERE ", entityDB tNode ^* fieldDB (entityId tNode) - , " = ANY(?)" , " UNION ALL " , sqlStep fwd bwd , " ) DELETE FROM ", dbname $ entityDB tEdge @@ -300,8 +296,6 @@ trrFix edge proxy = do , "ARRAY[", entityDB tNode ^* fieldDB (entityId tNode), "], " , "FALSE, FALSE" , " FROM ", dbname $ entityDB tNode - , " WHERE ", entityDB tNode ^* fieldDB (entityId tNode) - , " IN ?" , " UNION ALL " , sqlStep fwd bwd , " ) DELETE FROM ", dbname $ entityDB tEdge