diff options
Diffstat (limited to 'lib/Web/OpenWeatherMap/Types/CurrentWeather.hs')
-rw-r--r-- | lib/Web/OpenWeatherMap/Types/CurrentWeather.hs | 35 |
1 files changed, 35 insertions, 0 deletions
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 <https://openweathermap.org/current>. +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) + |