{-# LANGUAGE OverloadedStrings #-}

module Tesla.Car.Command.RemoteStart where

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

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 :: forall (m :: * -> *). MonadIO m => String -> Car m CommandResponse
remoteStart String
pw = forall (m :: * -> *).
MonadIO m =>
String -> [Pair] -> Car m CommandResponse
runCmd String
"remote_start_drive" [Key
"password" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
.= String
pw]