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

query_insertOpcuaEndpointCertificate :: Query "insertOpcuaEndpointCertificate" ":one"
query_insertOpcuaEndpointCertificate = Query "INSERT INTO opcua_endpoint_certificates\n  (organization_id, provided_by, subject, issuer, signature, valid_from, valid_to, certificate, private_key)\nVALUES\n  (?, ?, ?, ?, ?, ?, ?, ?, ?)\nON CONFLICT\n  (organization_id, signature)\nDO UPDATE SET\n  updated_at = NOW ()\nRETURNING id, organization_id, provided_by, subject, issuer, signature, valid_from, valid_to, certificate, private_key, created_at, updated_at"

data instance Params "insertOpcuaEndpointCertificate" = Params_insertOpcuaEndpointCertificate
  {
    opcua_endpoint_certificates_organization_id :: Data.Int.Int32,
    opcua_endpoint_certificates_provided_by :: (Pulse.Database.Types.Enum "certificate_provider"),
    opcua_endpoint_certificates_subject :: Data.Text.Text,
    opcua_endpoint_certificates_issuer :: Data.Text.Text,
    opcua_endpoint_certificates_signature :: Data.Text.Text,
    opcua_endpoint_certificates_valid_from :: Data.Time.UTCTime,
    opcua_endpoint_certificates_valid_to :: Data.Time.UTCTime,
    opcua_endpoint_certificates_certificate :: (Database.PostgreSQL.Simple.Binary Data.ByteString.ByteString),
    opcua_endpoint_certificates_private_key :: (Database.PostgreSQL.Simple.Binary Data.ByteString.ByteString)
  }

data instance Result "insertOpcuaEndpointCertificate" = Result_insertOpcuaEndpointCertificate
  {
    opcua_endpoint_certificates_id :: !(Data.Int.Int32),
    opcua_endpoint_certificates_organization_id :: !(Data.Int.Int32),
    opcua_endpoint_certificates_provided_by :: !((Pulse.Database.Types.Enum "certificate_provider")),
    opcua_endpoint_certificates_subject :: !(Data.Text.Text),
    opcua_endpoint_certificates_issuer :: !(Data.Text.Text),
    opcua_endpoint_certificates_signature :: !(Data.Text.Text),
    opcua_endpoint_certificates_valid_from :: !(Data.Time.UTCTime),
    opcua_endpoint_certificates_valid_to :: !(Data.Time.UTCTime),
    opcua_endpoint_certificates_certificate :: !((Database.PostgreSQL.Simple.Binary Data.ByteString.ByteString)),
    opcua_endpoint_certificates_private_key :: !((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 "insertOpcuaEndpointCertificate") where
  toRow Params_insertOpcuaEndpointCertificate{..} =
    [ 
      Database.PostgreSQL.Simple.ToField.toField opcua_endpoint_certificates_organization_id, 

      Database.PostgreSQL.Simple.ToField.toField opcua_endpoint_certificates_provided_by, 

      Database.PostgreSQL.Simple.ToField.toField opcua_endpoint_certificates_subject, 

      Database.PostgreSQL.Simple.ToField.toField opcua_endpoint_certificates_issuer, 

      Database.PostgreSQL.Simple.ToField.toField opcua_endpoint_certificates_signature, 

      Database.PostgreSQL.Simple.ToField.toField opcua_endpoint_certificates_valid_from, 

      Database.PostgreSQL.Simple.ToField.toField opcua_endpoint_certificates_valid_to, 

      Database.PostgreSQL.Simple.ToField.toField opcua_endpoint_certificates_certificate, 

      Database.PostgreSQL.Simple.ToField.toField opcua_endpoint_certificates_private_key
    ]

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