module Hasura.RQL.DDL.Deps
  ( reportDeps,
    reportDepsExt,
  )
where

import Data.Text.Extended
import Hasura.Base.Error
import Hasura.Prelude
import Hasura.RQL.Types

reportDeps :: (QErrM m) => [SchemaObjId] -> m ()
reportDeps deps =
  throw400 DependencyError $
    "cannot drop due to the following dependent objects : "
      <> reportSchemaObjs deps

reportDepsExt :: (QErrM m) => [SchemaObjId] -> [Text] -> m ()
reportDepsExt deps unknownDeps =
  throw400 DependencyError $
    "cannot drop due to the following dependent objects : " <> depObjsTxt
  where
    depObjsTxt = commaSeparated $ reportSchemaObjs deps : unknownDeps