blob: 02d33710fa6b454b77fcc92acd40fcb007193802 (
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
35
36
|
{-# 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)
|