lib/Web/OpenWeatherMap/Types/Weather.hs


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

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

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

import GHC.Generics (Generic)

import Data.Aeson (FromJSON)


data Weather = Weather
  { id :: Int
  , main :: String
  , description :: String
  , icon :: String
  } deriving (Show, Generic, FromJSON)