From 6f6e3d8ec76c59d6f403725e9b2a22b8f6680714 Mon Sep 17 00:00:00 2001 From: Igor Pashev Date: Wed, 7 Jun 2017 16:24:05 +0300 Subject: Initial version 0.0.0 --- lib/Web/OpenWeatherMap/Types/CurrentWeather.hs | 35 ++++++++++++++++++++++++++ 1 file changed, 35 insertions(+) create mode 100644 lib/Web/OpenWeatherMap/Types/CurrentWeather.hs (limited to 'lib/Web/OpenWeatherMap/Types/CurrentWeather.hs') diff --git a/lib/Web/OpenWeatherMap/Types/CurrentWeather.hs b/lib/Web/OpenWeatherMap/Types/CurrentWeather.hs new file mode 100644 index 0000000..26572a7 --- /dev/null +++ b/lib/Web/OpenWeatherMap/Types/CurrentWeather.hs @@ -0,0 +1,35 @@ +{-# LANGUAGE DeriveAnyClass #-} +{-# LANGUAGE DeriveGeneric #-} + +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) + +-- | Response to requests for current weather. +-- Refer to . +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) + -- cgit v1.2.3