lib/Web/OpenWeatherMap/Types/ForecastWeather.hs


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22

{-# LANGUAGE DeriveAnyClass #-}
{-# LANGUAGE DeriveGeneric #-}

module Web.OpenWeatherMap.Types.ForecastWeather
  ( ForecastWeather(..)
  ) where

import GHC.Generics (Generic)

import Data.Aeson (FromJSON)

import Web.OpenWeatherMap.Types.City (City)
import Web.OpenWeatherMap.Types.Forecast (Forecast)

-- | Response to requests for forecast weather.
-- Refer to <https://openweathermap.org/forecast5>.
data ForecastWeather =
  ForecastWeather
    { list :: [Forecast]
    , city :: City
    }
  deriving (Show, Generic, FromJSON)