From d625bb9213bc78730f98c556d59813b444235fc4 Mon Sep 17 00:00:00 2001 From: Igor Pashev Date: Thu, 5 Jan 2023 12:41:39 +0200 Subject: Switch to servant 0.19 That has switched from Text to ByteString in appendToQueryString. Co-authored-by: Nikolai Oplachko --- lib/Web/OpenWeatherMap/Types/Location.hs | 19 +++++++++++-------- 1 file changed, 11 insertions(+), 8 deletions(-) (limited to 'lib/Web') diff --git a/lib/Web/OpenWeatherMap/Types/Location.hs b/lib/Web/OpenWeatherMap/Types/Location.hs index 85b4ca6..2393641 100644 --- a/lib/Web/OpenWeatherMap/Types/Location.hs +++ b/lib/Web/OpenWeatherMap/Types/Location.hs @@ -9,25 +9,28 @@ module Web.OpenWeatherMap.Types.Location ( Location(..) ) where +import Data.ByteString (ByteString) import Data.Proxy (Proxy(..)) - +import Data.Text (Text) +import Data.Text.Encoding (encodeUtf8) import Servant.API ((:>)) import Servant.Client (Client, HasClient, clientWithRoute, hoistClientMonad) -import Servant.Client.Core.Request (appendToQueryString) -import Web.HttpApiData (toQueryParam) +import Servant.Client.Core.Request (Request, appendToQueryString) +import Web.HttpApiData (ToHttpApiData, toQueryParam) -- | Various ways to specify location. data Location = Name String -- ^ City name. | Coord Double Double -- ^ Geographic coordinates: latitude and longitude. +addParam :: ToHttpApiData a => Text -> a -> Request -> Request +addParam name = appendToQueryString name . Just . encodeUtf8 . toQueryParam + instance HasClient m api => HasClient m (Location :> api) where type Client m (Location :> api) = Location -> Client m api + hoistClientMonad pm _ f cl = hoistClientMonad pm (Proxy :: Proxy api) f . cl clientWithRoute pm Proxy req loc = clientWithRoute pm (Proxy :: Proxy api) (addParams loc req) where - addParams (Name q) = appendToQueryString "q" (Just $ toQueryParam q) - addParams (Coord lat lon) = - appendToQueryString "lat" (Just $ toQueryParam lat) . - appendToQueryString "lon" (Just $ toQueryParam lon) - hoistClientMonad pm _ f cl = hoistClientMonad pm (Proxy :: Proxy api) f . cl + addParams (Name q) = addParam "q" q + addParams (Coord lat lon) = addParam "lat" lat . addParam "lon" lon -- cgit v1.2.3