blob: e7d4464fcaf74cb76afc7526c803d78a78f7ec27 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
|
{-# LANGUAGE DeriveAnyClass #-}
{-# LANGUAGE DeriveGeneric #-}
module Web.OpenWeatherMap.Types.CurrentWeather
( CurrentWeather(..)
) where
import GHC.Generics (Generic)
import Prelude hiding (id)
import Data.Aeson (FromJSON)
import Web.OpenWeatherMap.Types.Clouds (Clouds)
import Web.OpenWeatherMap.Types.Coord (Coord)
import Web.OpenWeatherMap.Types.Main (Main)
import Web.OpenWeatherMap.Types.Sys (Sys)
import Web.OpenWeatherMap.Types.Weather (Weather)
import Web.OpenWeatherMap.Types.Wind (Wind)
-- | Response to requests for current weather.
-- Refer to <https://openweathermap.org/current>.
data CurrentWeather = CurrentWeather
{ coord :: Coord
, weather :: [Weather]
, base :: String
, main :: Main
, wind :: Wind
, clouds :: Clouds
, dt :: Int
, sys :: Sys
, id :: Int
, name :: String
, cod :: Int
} deriving (Show, Generic, FromJSON)
|