From d808b4fd3b83cdffe8fc5bd142596b7820ee4a91 Mon Sep 17 00:00:00 2001 From: Igor Pashev Date: Tue, 7 Apr 2020 16:03:37 +0200 Subject: Remove internal parameter "message" from Sys --- lib/Web/OpenWeatherMap/Types/Sys.hs | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/lib/Web/OpenWeatherMap/Types/Sys.hs b/lib/Web/OpenWeatherMap/Types/Sys.hs index 03b223c..8cb932b 100644 --- a/lib/Web/OpenWeatherMap/Types/Sys.hs +++ b/lib/Web/OpenWeatherMap/Types/Sys.hs @@ -8,11 +8,10 @@ module Web.OpenWeatherMap.Types.Sys ( import GHC.Generics (Generic) import Data.Aeson (FromJSON) - + data Sys = Sys - { message :: Double - , country :: Maybe String + { country :: Maybe String , sunrise :: Int , sunset :: Int } deriving (Show, Generic, FromJSON) -- cgit v1.2.3