GetOpcuaEndpointMonitorsToSample.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.GetOpcuaEndpointMonitorsToSample 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 Pulse.Database.Types
import qualified GHC.Types
import qualified Data.Time
import qualified GHC.Base
import qualified Data.ByteString
import qualified Database.PostgreSQL.Simple
import qualified Data.Foldable

query_getOpcuaEndpointMonitorsToSample :: Query "getOpcuaEndpointMonitorsToSample" ":many"
query_getOpcuaEndpointMonitorsToSample = Query "SELECT monitors.id, monitors.organization_id, monitors.name, type, healthiness, monitor_group, threshold_failures, is_active, is_deleted, last_checked, monitors.created_at, monitors.updated_at, escalation_policy_id, opcua_endpoint_monitors.id, endpoint, mode, policy, opcua_endpoint_monitors.certificate, credentials, incident_message_template, latest_connection_attempt, opcua_endpoint_monitors.created_at, opcua_endpoint_monitors.updated_at, opcua_endpoint_credentials.id, opcua_endpoint_credentials.organization_id, opcua_endpoint_credentials.name, username, password, opcua_endpoint_credentials.created_at, opcua_endpoint_credentials.updated_at, opcua_endpoint_certificates.id, opcua_endpoint_certificates.organization_id, provided_by, subject, issuer, signature, valid_from, valid_to, opcua_endpoint_certificates.certificate, private_key, opcua_endpoint_certificates.created_at, opcua_endpoint_certificates.updated_at\nFROM\n    monitors\nINNER JOIN\n    opcua_endpoint_monitors ON monitors.id = opcua_endpoint_monitors.id\nLEFT JOIN\n    opcua_endpoint_credentials ON monitors.id = opcua_endpoint_credentials.id\nLEFT JOIN\n    opcua_endpoint_certificates ON monitors.id = opcua_endpoint_certificates.id\nWHERE\n    monitors.organization_id = ?\n    AND monitors.type = 'opcua_endpoint'\n    -- We used to only sample \"active\" endpoints. We continue to sample active\n    -- OPCUA Endpoints but we do not raise any incidents for them, if they are\n    -- failing.\n    --\n    -- AND monitors.is_active\n    AND NOT monitors.is_deleted"

data instance Params "getOpcuaEndpointMonitorsToSample" = Params_getOpcuaEndpointMonitorsToSample
  {
    monitors_organization_id :: Data.Int.Int32
  }

data instance Result "getOpcuaEndpointMonitorsToSample" = Result_getOpcuaEndpointMonitorsToSample
  {
    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),
    opcua_endpoint_monitors_id :: !(Data.Int.Int32),
    opcua_endpoint_monitors_endpoint :: !(Data.Text.Text),
    opcua_endpoint_monitors_mode :: !((Pulse.Database.Types.Enum "opcua_security_mode")),
    opcua_endpoint_monitors_policy :: !((Pulse.Database.Types.Enum "opcua_security_policy")),
    opcua_endpoint_monitors_certificate :: !(GHC.Base.Maybe Data.Int.Int32),
    opcua_endpoint_monitors_credentials :: !(GHC.Base.Maybe Data.Int.Int32),
    opcua_endpoint_monitors_incident_message_template :: !(GHC.Base.Maybe Data.Text.Text),
    opcua_endpoint_monitors_latest_connection_attempt :: !((Maybe Data.Time.UTCTime)),
    opcua_endpoint_monitors_created_at :: !((Maybe Data.Time.UTCTime)),
    opcua_endpoint_monitors_updated_at :: !((Maybe Data.Time.UTCTime)),
    opcua_endpoint_credentials_id :: !(GHC.Base.Maybe Data.Int.Int32),
    opcua_endpoint_credentials_organization_id :: !(GHC.Base.Maybe Data.Int.Int32),
    opcua_endpoint_credentials_name :: !(GHC.Base.Maybe Data.Text.Text),
    opcua_endpoint_credentials_username :: !(GHC.Base.Maybe Data.Text.Text),
    opcua_endpoint_credentials_password :: !(GHC.Base.Maybe Data.Text.Text),
    opcua_endpoint_credentials_created_at :: !((Maybe Data.Time.UTCTime)),
    opcua_endpoint_credentials_updated_at :: !((Maybe Data.Time.UTCTime)),
    opcua_endpoint_certificates_id :: !(GHC.Base.Maybe Data.Int.Int32),
    opcua_endpoint_certificates_organization_id :: !(GHC.Base.Maybe Data.Int.Int32),
    opcua_endpoint_certificates_provided_by :: !(GHC.Base.Maybe ((Pulse.Database.Types.Enum "certificate_provider"))),
    opcua_endpoint_certificates_subject :: !(GHC.Base.Maybe Data.Text.Text),
    opcua_endpoint_certificates_issuer :: !(GHC.Base.Maybe Data.Text.Text),
    opcua_endpoint_certificates_signature :: !(GHC.Base.Maybe Data.Text.Text),
    opcua_endpoint_certificates_valid_from :: !((Maybe Data.Time.UTCTime)),
    opcua_endpoint_certificates_valid_to :: !((Maybe Data.Time.UTCTime)),
    opcua_endpoint_certificates_certificate :: !((Maybe (Database.PostgreSQL.Simple.Binary Data.ByteString.ByteString))),
    opcua_endpoint_certificates_private_key :: !((Maybe (Database.PostgreSQL.Simple.Binary Data.ByteString.ByteString))),
    opcua_endpoint_certificates_created_at :: !((Maybe Data.Time.UTCTime)),
    opcua_endpoint_certificates_updated_at :: !((Maybe Data.Time.UTCTime))
  }

instance Database.PostgreSQL.Simple.ToRow.ToRow (Params "getOpcuaEndpointMonitorsToSample") where
  toRow Params_getOpcuaEndpointMonitorsToSample{..} =
    [ 
      Database.PostgreSQL.Simple.ToField.toField monitors_organization_id
    ]

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