diff options
| author | Igor Pashev <pashev.igor@gmail.com> | 2020-06-28 20:21:04 +0200 |
|---|---|---|
| committer | Igor Pashev <pashev.igor@gmail.com> | 2020-06-28 20:21:04 +0200 |
| commit | 24b77b7b78573e50cc8edb94bf1b893e0a40208c (patch) | |
| tree | 6a20e9b646a46ea5e0d0a3db188129ae246bca9f | |
| parent | c687a6fda58b16521256ec691eb4c07def06b27d (diff) | |
| download | openweathermap-24b77b7b78573e50cc8edb94bf1b893e0a40208c.tar.gz | |
Eliminate lambda
| -rw-r--r-- | lib/Web/OpenWeatherMap/Types/Location.hs | 3 |
1 files changed, 1 insertions, 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 |