CreateIncidentFromMonitorIfNotExists.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.CreateIncidentFromMonitorIfNotExists 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.Text
import qualified GHC.Base
import qualified Pulse.Database.Types
import qualified Data.Time
import qualified Data.Foldable

query_createIncidentFromMonitorIfNotExists :: Query "createIncidentFromMonitorIfNotExists" ":one"
query_createIncidentFromMonitorIfNotExists = Query "INSERT INTO\nincidents (organization_id, display_name, description, failing_monitor, status)\nVALUES\n(?, ?, ?, ?, ?)\nON CONFLICT\n(organization_id, failing_monitor)\nWHERE\nincidents.status <> 'resolved'\nDO UPDATE SET updated_at = NOW () RETURNING id, organization_id, display_name, description, failing_monitor, status, lead_by, acknowledged_by, unacknowledged_at, created_at, updated_at"

data instance Params "createIncidentFromMonitorIfNotExists" = Params_createIncidentFromMonitorIfNotExists
  {
    incidents_organization_id :: Data.Int.Int32,
    incidents_display_name :: Data.Text.Text,
    incidents_description :: GHC.Base.Maybe Data.Text.Text,
    incidents_failing_monitor :: GHC.Base.Maybe Data.Int.Int32,
    incidents_status :: (Pulse.Database.Types.Enum "incident_status")
  }

data instance Result "createIncidentFromMonitorIfNotExists" = Result_createIncidentFromMonitorIfNotExists
  {
    incidents_id :: !(Data.Int.Int64),
    incidents_organization_id :: !(Data.Int.Int32),
    incidents_display_name :: !(Data.Text.Text),
    incidents_description :: !(GHC.Base.Maybe Data.Text.Text),
    incidents_failing_monitor :: !(GHC.Base.Maybe Data.Int.Int32),
    incidents_status :: !((Pulse.Database.Types.Enum "incident_status")),
    incidents_lead_by :: !(GHC.Base.Maybe Data.Int.Int32),
    incidents_acknowledged_by :: !(GHC.Base.Maybe Data.Int.Int32),
    incidents_unacknowledged_at :: !((Maybe Data.Time.UTCTime)),
    incidents_created_at :: !((Maybe Data.Time.UTCTime)),
    incidents_updated_at :: !((Maybe Data.Time.UTCTime))
  }

instance Database.PostgreSQL.Simple.ToRow.ToRow (Params "createIncidentFromMonitorIfNotExists") where
  toRow Params_createIncidentFromMonitorIfNotExists{..} =
    [ 
      Database.PostgreSQL.Simple.ToField.toField incidents_organization_id, 

      Database.PostgreSQL.Simple.ToField.toField incidents_display_name, 

      Database.PostgreSQL.Simple.ToField.toField incidents_description, 

      Database.PostgreSQL.Simple.ToField.toField incidents_failing_monitor, 

      Database.PostgreSQL.Simple.ToField.toField incidents_status
    ]

instance Database.PostgreSQL.Simple.FromRow.FromRow (Result "createIncidentFromMonitorIfNotExists") where
  fromRow =
    pure Result_createIncidentFromMonitorIfNotExists
      <*> Database.PostgreSQL.Simple.FromRow.field
      <*> Database.PostgreSQL.Simple.FromRow.field
      <*> Database.PostgreSQL.Simple.FromRow.field
      <*> Database.PostgreSQL.Simple.FromRow.field
      <*> Database.PostgreSQL.Simple.FromRow.field
      <*> Database.PostgreSQL.Simple.FromRow.field
      <*> Database.PostgreSQL.Simple.FromRow.field
      <*> Database.PostgreSQL.Simple.FromRow.field
      <*> Database.PostgreSQL.Simple.FromRow.field
      <*> Database.PostgreSQL.Simple.FromRow.field
      <*> Database.PostgreSQL.Simple.FromRow.field