{-# LANGUAGE OverloadedStrings #-}

module Tesla.Car.Command.RemoteStart where

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

import           Tesla.Car.Command

-- | Enables keyless driving.
--
-- This requires your account password, so, you know, be careful where you use it.
remoteStart :: MonadIO m => String -> Car m CommandResponse
remoteStart :: String -> Car m CommandResponse
remoteStart String
pw = String -> [FormParam] -> Car m CommandResponse
forall (m :: * -> *) p.
(MonadIO m, Postable p) =>
String -> p -> Car m CommandResponse
runCmd String
"remote_start_drive" [ByteString
"password" ByteString -> String -> FormParam
forall v. FormValue v => ByteString -> v -> FormParam
:= String
pw]