diff --git a/src/Tesla/Car/Command/Climate.hs b/src/Tesla/Car/Command/Climate.hs
--- a/src/Tesla/Car/Command/Climate.hs
+++ b/src/Tesla/Car/Command/Climate.hs
@@ -3,11 +3,10 @@
 {-# LANGUAGE TemplateHaskell   #-}
 
 module Tesla.Car.Command.Climate (
-  hvacOn, hvacOff, climateKeeper,
+  hvacOn, hvacOff, ClimateKeeper(..), climateKeeper,
   heatSeat, coolSeat, Seat(..),
   setTemps, wheelHeater, wheelHeaterOff, wheelHeaterOn,
   maxDefrost,
-  wakeUp,
   bioweaponMode,
   Sometimes(..), OffPeakConfig(..), Preconditioning,
   scheduledDepartureOff, scheduleDeparture
@@ -47,7 +46,7 @@
 heatSeat :: MonadIO m => Seat -> Int -> Car m CommandResponse
 heatSeat seat level = runCmd "remote_seat_heater_request" ["heater" .= seatNum seat, "level" .= level]
 
--- | Set heating levels for various seats.
+-- | Set cooling levels for various seats.
 coolSeat :: MonadIO m => Seat -> Int -> Car m CommandResponse
 coolSeat seat level = runCmd "remote_seat_cooler_request" ["seat_position" .= seatNum seat, "seat_cooler_level" .= level]
 
@@ -101,6 +100,5 @@
 climateKeeper ck = runCmd "set_climate_keeper_mode" [ "climate_keeper_mode" .= ck]
 
 mkNamedCommands [("hvacOn", "auto_conditioning_start"),
-                 ("hvacOff", "auto_conditioning_stop"),
-                 ("wakeUp", "wake_up")]
+                 ("hvacOff", "auto_conditioning_stop")]
 
diff --git a/src/Tesla/Car/Command/Wake.hs b/src/Tesla/Car/Command/Wake.hs
--- a/src/Tesla/Car/Command/Wake.hs
+++ b/src/Tesla/Car/Command/Wake.hs
@@ -1,11 +1,22 @@
-{-# LANGUAGE OverloadedStrings #-}
-{-# LANGUAGE TemplateHaskell   #-}
+{-# LANGUAGE OverloadedStrings   #-}
+{-# LANGUAGE TypeApplications #-}
 
 module Tesla.Car.Command.Wake (
   wakeUp
   ) where
 
+import           Control.Lens
 import           Control.Monad.IO.Class (MonadIO (..))
+import           Data.Aeson
+import           Data.Aeson.Lens
+import qualified Data.ByteString.Lazy   as BL
+
+
+import           Tesla.Car              (currentVehicleID, vehicleURL)
 import           Tesla.Car.Command
+import           Tesla.Internal.HTTP    (jpostAuth)
 
-mkCommand "wakeUp" "wake_up"
+wakeUp :: MonadIO m => Car m (Maybe Value)
+wakeUp = do
+  v <- currentVehicleID
+  preview (_Just . key "response") <$> jpostAuth @_ @(Maybe Value) (vehicleURL v "wake_up") BL.empty
diff --git a/src/Tesla/Car/Commands.hs b/src/Tesla/Car/Commands.hs
--- a/src/Tesla/Car/Commands.hs
+++ b/src/Tesla/Car/Commands.hs
@@ -22,4 +22,5 @@
 import           Tesla.Car.Command.Software   as CMD
 import           Tesla.Car.Command.SpeedLimit as CMD
 import           Tesla.Car.Command.Valet      as CMD
+import           Tesla.Car.Command.Wake       as CMD
 import           Tesla.Car.Command.Windows    as CMD
diff --git a/src/Tesla/Internal/HTTP.hs b/src/Tesla/Internal/HTTP.hs
--- a/src/Tesla/Internal/HTTP.hs
+++ b/src/Tesla/Internal/HTTP.hs
@@ -34,4 +34,4 @@
 jpostWith opts u v = view responseBody <$> liftIO (postWith opts u v >>= asJSON)
 
 jpostAuth :: (HasTeslaAuth m, FromJSON j, Postable a, MonadIO m) => String -> a -> m j
-jpostAuth u v = teslaAuth >>= \a -> jpostWith (authOpts a) u v
+jpostAuth u v = teslaAuth >>= \a -> jpostWith (authOpts a & header "Content-Type" .~ ["application/json"]) u v
diff --git a/tesla.cabal b/tesla.cabal
--- a/tesla.cabal
+++ b/tesla.cabal
@@ -4,10 +4,10 @@
 --
 -- see: https://github.com/sol/hpack
 --
--- hash: 9c3f0b9596ee29b8190747eac236e03c836b2b3b6f99c5a32b8cfb444277488d
+-- hash: 10fd401a397b5deea0c592f1f9fd9ee0443e0aa037897aa94ea4dd12f8379dfc
 
 name:           tesla
-version:        0.7.1.0
+version:        0.7.2.0
 synopsis:       Tesla API client.
 description:    Please see the README on GitHub at <https://github.com/dustin/tesla#readme>
 category:       Web