{-# LANGUAGE OverloadedStrings #-}

module Tesla.Car.Command.Homelink (trigger) where

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

-- | Trigger nearby homelink with the given (lat,lon)
trigger :: MonadIO m => (Double, Double) -> Car m CommandResponse
trigger :: (Double, Double) -> Car m CommandResponse
trigger (Double
lat,Double
lon) = String -> [FormParam] -> Car m CommandResponse
forall (m :: * -> *) p.
(MonadIO m, Postable p) =>
String -> p -> Car m CommandResponse
runCmd String
"flash_lights" [ByteString
"lat" ByteString -> Double -> FormParam
forall v. FormValue v => ByteString -> v -> FormParam
:= Double
lat, ByteString
"lon" ByteString -> Double -> FormParam
forall v. FormValue v => ByteString -> v -> FormParam
:= Double
lon]