mirror of
https://github.com/hasura/graphql-engine.git
synced 2024-12-17 04:24:35 +03:00
39 lines
1.0 KiB
Haskell
39 lines
1.0 KiB
Haskell
{-# LANGUAGE OverloadedStrings #-}
|
|
|
|
module Hasura.RQL.DDL.Utils
|
|
( clearHdbViews
|
|
) where
|
|
|
|
import qualified Data.Text as T
|
|
import qualified Database.PG.Query as Q
|
|
import Hasura.Prelude ((<>))
|
|
|
|
clearHdbViews :: Q.Tx ()
|
|
clearHdbViews = Q.multiQ (Q.fromText (clearHdbOnlyViews <> clearHdbViewsFunc))
|
|
|
|
clearHdbOnlyViews :: T.Text
|
|
clearHdbOnlyViews =
|
|
"DO $$ DECLARE \
|
|
\ r RECORD; \
|
|
\ BEGIN \
|
|
\ FOR r IN (SELECT viewname FROM pg_views WHERE schemaname = 'hdb_views') LOOP \
|
|
\ EXECUTE 'DROP VIEW IF EXISTS hdb_views.' || quote_ident(r.viewname) || ' CASCADE'; \
|
|
\ END LOOP; \
|
|
\ END $$; "
|
|
|
|
|
|
clearHdbViewsFunc :: T.Text
|
|
clearHdbViewsFunc =
|
|
"DO $$ DECLARE \
|
|
\ _sql text; \
|
|
\ BEGIN \
|
|
\ SELECT INTO _sql \
|
|
\ string_agg('DROP FUNCTION hdb_views.' || quote_ident(r.routine_name) || '() CASCADE;' \
|
|
\ , E'\n') \
|
|
\ FROM information_schema.routines r \
|
|
\ WHERE r.specific_schema = 'hdb_views'; \
|
|
\ IF _sql IS NOT NULL THEN \
|
|
\ EXECUTE _sql; \
|
|
\ END IF; \
|
|
\ END $$; "
|