{-# 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 :: forall (m :: * -> *). MonadIO m => Bool -> Car m CommandResponse setSentryMode Bool on = forall (m :: * -> *) p. (MonadIO m, Postable p) => String -> p -> Car m CommandResponse runCmd String "set_sentry_mode" [ ByteString "on" forall v. FormValue v => ByteString -> v -> FormParam := Bool on ]