Homelink.hs

{-# LANGUAGE OverloadedStrings #-}

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

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

-- | Trigger nearby homelink with the given (lat,lon)
trigger :: MonadIO m => (Double, Double) -> Car m CommandResponse
trigger (lat,lon) = runCmd "flash_lights" ["lat" .= lat, "lon" .= lon]