aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorIgor Pashev <pashev.igor@gmail.com>2020-04-07 16:03:37 +0200
committerIgor Pashev <pashev.igor@gmail.com>2020-04-07 16:03:37 +0200
commitd808b4fd3b83cdffe8fc5bd142596b7820ee4a91 (patch)
tree3030b011ac641dcf3fd081d7be9ce58e5d792fb7
parent5dfa745cdb17b4b7bc84cf11e5d4b5ac19b65248 (diff)
downloadopenweathermap-d808b4fd3b83cdffe8fc5bd142596b7820ee4a91.tar.gz
Remove internal parameter "message" from Sys
-rw-r--r--lib/Web/OpenWeatherMap/Types/Sys.hs5
1 files 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)