lib/Web/OpenWeatherMap/Types/Main.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.Main
  ( Main(..)
  ) where

import GHC.Generics (Generic)

import Data.Aeson (FromJSON)

{-# ANN module "HLint: ignore Use camelCase" #-}

data Main = Main
  { temp :: Double
  , pressure :: Double
  , humidity :: Double
  , temp_min :: Double
  , temp_max :: Double
  , sea_level :: Maybe Double
  , grnd_level :: Maybe Double
  } deriving (Show, Generic, FromJSON)