sqlc-hs-0.2.0.0: test/golden/out/Pulse/Database/PauseMonitor.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.PauseMonitor 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_pauseMonitor :: Query "pauseMonitor" ":exec"
query_pauseMonitor = Query "UPDATE\n monitors\nSET\n is_active = false,\n updated_at = NOW()\nWHERE\n monitors.id = ?"
data instance Params "pauseMonitor" = Params_pauseMonitor
{
monitors_id :: Data.Int.Int32
}
data instance Result "pauseMonitor" = Result_pauseMonitor
{
}
instance Database.PostgreSQL.Simple.ToRow.ToRow (Params "pauseMonitor") where
toRow Params_pauseMonitor{..} =
[
Database.PostgreSQL.Simple.ToField.toField monitors_id
]
instance Database.PostgreSQL.Simple.FromRow.FromRow (Result "pauseMonitor") where
fromRow =
pure Result_pauseMonitor