-- | <http://strava.github.io/api/v3/gear/>
module Strive.Actions.Gear
  ( getGear
  ) where

import Network.HTTP.Types (Query)
import Strive.Aliases (GearId, Result)
import Strive.Client (Client)
import Strive.Internal.HTTP (get)
import Strive.Types (GearDetailed)

-- | <http://strava.github.io/api/v3/gear/#show>
getGear :: Client -> GearId -> IO (Result GearDetailed)
getGear :: Client -> GearId -> IO (Result GearDetailed)
getGear Client
client GearId
gearId = Client -> GearId -> Query -> IO (Result GearDetailed)
forall q j.
(QueryLike q, FromJSON j) =>
Client -> GearId -> q -> IO (Result j)
get Client
client GearId
resource Query
query
 where
  resource :: GearId
resource = GearId
"api/v3/gear/" GearId -> GearId -> GearId
forall a. Semigroup a => a -> a -> a
<> GearId
gearId
  query :: Query
query = [] :: Query