TickleHeartbeatMonitor.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.TickleHeartbeatMonitor 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.Text
import qualified Data.Int
import qualified Pulse.Database.Types
import qualified GHC.Types
import qualified Data.Time
import qualified Data.Time.LocalTime
import qualified Data.Foldable

query_tickleHeartbeatMonitor :: Query "tickleHeartbeatMonitor" ":one"
query_tickleHeartbeatMonitor = Query "UPDATE heartbeat_monitors SET last_heartbeat = NOW()\nFROM monitors\nWHERE\n    monitors.id = heartbeat_monitors.id\n    AND NOT monitors.is_deleted\n    AND heartbeat_slug = ?\nRETURNING monitors.id, organization_id, name, type, healthiness, monitor_group, threshold_failures, is_active, is_deleted, last_checked, monitors.created_at, updated_at, escalation_policy_id, heartbeat_monitors.id, heartbeat_slug, last_heartbeat, expected_interval, heartbeat_monitors.created_at"

data instance Params "tickleHeartbeatMonitor" = Params_tickleHeartbeatMonitor
  {
    heartbeat_monitors_heartbeat_slug :: Data.Text.Text
  }

data instance Result "tickleHeartbeatMonitor" = Result_tickleHeartbeatMonitor
  {
    monitors_id :: !(Data.Int.Int32),
    monitors_organization_id :: !(Data.Int.Int32),
    monitors_name :: !(Data.Text.Text),
    monitors_type :: !((Pulse.Database.Types.Enum "monitor_type")),
    monitors_healthiness :: !((Pulse.Database.Types.Enum "monitor_healthiness")),
    monitors_monitor_group :: !(Data.Text.Text),
    monitors_threshold_failures :: !(Data.Int.Int32),
    monitors_is_active :: !(GHC.Types.Bool),
    monitors_is_deleted :: !(GHC.Types.Bool),
    monitors_last_checked :: !((Maybe Data.Time.UTCTime)),
    monitors_created_at :: !((Maybe Data.Time.UTCTime)),
    monitors_updated_at :: !((Maybe Data.Time.UTCTime)),
    monitors_escalation_policy_id :: !(Data.Int.Int32),
    heartbeat_monitors_id :: !(Data.Int.Int32),
    heartbeat_monitors_heartbeat_slug :: !(Data.Text.Text),
    heartbeat_monitors_last_heartbeat :: !((Maybe Data.Time.UTCTime)),
    heartbeat_monitors_expected_interval :: !(Data.Time.LocalTime.CalendarDiffTime),
    heartbeat_monitors_created_at :: !((Maybe Data.Time.UTCTime))
  }

instance Database.PostgreSQL.Simple.ToRow.ToRow (Params "tickleHeartbeatMonitor") where
  toRow Params_tickleHeartbeatMonitor{..} =
    [ 
      Database.PostgreSQL.Simple.ToField.toField heartbeat_monitors_heartbeat_slug
    ]

instance Database.PostgreSQL.Simple.FromRow.FromRow (Result "tickleHeartbeatMonitor") where
  fromRow =
    pure Result_tickleHeartbeatMonitor
      <*> 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
      <*> 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