blob: 7bb62a6ea72ecde059e5cd403b7e80eec35577f4 (
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
|
{-# 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)
|