sqlc-hs-0.2.0.0: test/golden/out/Pulse/Database/DeleteEscalationPolicy.hs
{- This file was auto-generated from queries.sql by sqlc-hs. -}
{-# LANGUAGE BangPatterns #-}
{-# LANGUAGE DataKinds #-}
{-# LANGUAGE DuplicateRecordFields #-}
{-# LANGUAGE FlexibleInstances #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE RecordWildCards #-}
{-# LANGUAGE TypeFamilies #-}
module Pulse.Database.DeleteEscalationPolicy where
import Pulse.Database.Internal (Query(..), Enum, Params, Result)
import qualified Database.PostgreSQL.Simple
import qualified Database.PostgreSQL.Simple.FromRow
import qualified Database.PostgreSQL.Simple.ToField
import qualified Database.PostgreSQL.Simple.ToRow
import qualified Data.Int
import qualified Data.Foldable
query_deleteEscalationPolicy :: Query "deleteEscalationPolicy" ":exec"
query_deleteEscalationPolicy = Query "UPDATE escalation_policies\nSET is_deleted = TRUE, updated_at = NOW()\nWHERE id = ?"
data instance Params "deleteEscalationPolicy" = Params_deleteEscalationPolicy
{
escalation_policies_id :: Data.Int.Int32
}
data instance Result "deleteEscalationPolicy" = Result_deleteEscalationPolicy
{
}
instance Database.PostgreSQL.Simple.ToRow.ToRow (Params "deleteEscalationPolicy") where
toRow Params_deleteEscalationPolicy{..} =
[
Database.PostgreSQL.Simple.ToField.toField escalation_policies_id
]
instance Database.PostgreSQL.Simple.FromRow.FromRow (Result "deleteEscalationPolicy") where
fromRow =
pure Result_deleteEscalationPolicy