removeDomainTerm :: P.ProductID -> Int64 -> App ()
removeDomainTerm pID dtID = do
  dbConfig <- reader getDBConfig
  liftIO $ runReaderT (runPool (DT.removeDomainTerm (toKey pID) (toKey dtID))) (getPool dbConfig)
removeDomainTerm :: P.ProductID -> Int64 -> App ()
removeDomainTerm pID dtID = do
  dbConfig <- reader getDBConfig
  liftIO $ runReaderT (runPool (DT.removeDomainTerm (toKey pID) (toKey dtID))) (getPool dbConfig)
removeDomainTerm pID dtID = do
  dbConfig <- reader getDBConfig
  liftIO $ runReaderT (runPool (DT.removeDomainTerm (toKey pID) (toKey dtID))) (getPool dbConfig)