{-# LANGUAGE OverloadedStrings #-}

module Tesla.Car.Command.Sentry (
  setSentryMode
  ) where

import           Control.Monad.IO.Class (MonadIO (..))

import           Tesla.Car.Command

setSentryMode :: MonadIO m => Bool -> Car m CommandResponse
setSentryMode :: forall (m :: * -> *). MonadIO m => Bool -> Car m CommandResponse
setSentryMode Bool
on = forall (m :: * -> *).
MonadIO m =>
String -> [Pair] -> Car m CommandResponse
runCmd String
"set_sentry_mode" [ Key
"on" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
.= Bool
on ]