tesla-0.2.0.0: src/Tesla/Car/Command/Sentry.hs

{-# 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 on = runCmd "set_sentry_mode" [ "on" := on ]