{-# LANGUAGE OverloadedStrings #-}

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

import           Control.Monad.IO.Class (MonadIO (..))
import           Network.Wreq           (FormParam (..))

import           Tesla.Car.Command

setSentryMode :: MonadIO m => Bool -> Car m CommandResponse
setSentryMode :: Bool -> Car m CommandResponse
setSentryMode Bool
on = String -> [FormParam] -> Car m CommandResponse
forall (m :: * -> *) p.
(MonadIO m, Postable p) =>
String -> p -> Car m CommandResponse
runCmd String
"set_sentry_mode" [ ByteString
"on" ByteString -> Bool -> FormParam
forall v. FormValue v => ByteString -> v -> FormParam
:= Bool
on ]