{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE TemplateHaskell #-}
module Tesla.Car.Command.Software (
scheduleUpdate, cancelUpdate
) where
import Control.Monad.IO.Class (MonadIO (..))
import Network.Wreq (FormParam (..))
import Tesla.Car.Command
scheduleUpdate :: MonadIO m => Int -> Car m CommandResponse
scheduleUpdate :: Int -> Car m CommandResponse
scheduleUpdate Int
secs = String -> [FormParam] -> Car m CommandResponse
forall (m :: * -> *) p.
(MonadIO m, Postable p) =>
String -> p -> Car m CommandResponse
runCmd String
"schedule_software_update" [ByteString
"offset_sec" ByteString -> Int -> FormParam
forall v. FormValue v => ByteString -> v -> FormParam
:= Int
secs]
mkCommand "cancelUpdate" "cancel_software_update"