module Web.OpenWeatherMap.Types.CurrentWeather (
CurrentWeather(..)
) where
import Prelude hiding (id)
import GHC.Generics (Generic)
import Data.Aeson (FromJSON)
import Web.OpenWeatherMap.Types.Clouds (Clouds)
import Web.OpenWeatherMap.Types.Coord (Coord)
import Web.OpenWeatherMap.Types.Main (Main)
import Web.OpenWeatherMap.Types.Sys (Sys)
import Web.OpenWeatherMap.Types.Weather (Weather)
import Web.OpenWeatherMap.Types.Wind (Wind)
data CurrentWeather = CurrentWeather
{ coord :: Coord
, weather :: [Weather]
, base :: String
, main :: Main
, wind :: Wind
, clouds :: Clouds
, dt :: Int
, sys :: Sys
, id :: Int
, name :: String
, cod :: Int
} deriving (Show, Generic, FromJSON)