{-# LANGUAGE OverloadedStrings #-}
module Tesla.Car.Command.RemoteStart where
import Control.Monad.IO.Class (MonadIO (..))
import Network.Wreq (FormParam (..))
import Tesla.Car.Command
remoteStart :: MonadIO m => String -> Car m CommandResponse
remoteStart :: forall (m :: * -> *). MonadIO m => String -> Car m CommandResponse
remoteStart String
pw = forall (m :: * -> *) p.
(MonadIO m, Postable p) =>
String -> p -> Car m CommandResponse
runCmd String
"remote_start_drive" [ByteString
"password" forall v. FormValue v => ByteString -> v -> FormParam
:= String
pw]