From 24b77b7b78573e50cc8edb94bf1b893e0a40208c Mon Sep 17 00:00:00 2001 From: Igor Pashev Date: Sun, 28 Jun 2020 20:21:04 +0200 Subject: Eliminate lambda --- lib/Web/OpenWeatherMap/Types/Location.hs | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/lib/Web/OpenWeatherMap/Types/Location.hs b/lib/Web/OpenWeatherMap/Types/Location.hs index 759d292..85b4ca6 100644 --- a/lib/Web/OpenWeatherMap/Types/Location.hs +++ b/lib/Web/OpenWeatherMap/Types/Location.hs @@ -30,5 +30,4 @@ instance HasClient m api => HasClient m (Location :> api) where addParams (Coord lat lon) = appendToQueryString "lat" (Just $ toQueryParam lat) . appendToQueryString "lon" (Just $ toQueryParam lon) - hoistClientMonad pm _ f cl = - \a -> hoistClientMonad pm (Proxy :: Proxy api) f (cl a) + hoistClientMonad pm _ f cl = hoistClientMonad pm (Proxy :: Proxy api) f . cl -- cgit v1.2.3