lib/Web/OpenWeatherMap/Types/Forecast.hs


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

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

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

import GHC.Generics (Generic)

import Data.Aeson (FromJSON)

import Web.OpenWeatherMap.Types.Clouds (Clouds)
import Web.OpenWeatherMap.Types.Main (Main)
import Web.OpenWeatherMap.Types.Weather (Weather)
import Web.OpenWeatherMap.Types.Wind (Wind)

data Forecast =
  Forecast
    { dt :: Int
    , clouds :: Clouds
    , main :: Main
    , weather :: [Weather]
    , wind :: Wind
    }
  deriving (Show, Generic, FromJSON)