Switch to servant 0.19

That has switched from Text to ByteString in appendToQueryString.

Co-authored-by: Nikolai Oplachko <magnickolas@gmail.com>

1 files changed, 11 insertions, 8 deletions

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