aboutsummaryrefslogtreecommitdiff
path: root/lib/Web/OpenWeatherMap/Types
diff options
context:
space:
mode:
Diffstat (limited to 'lib/Web/OpenWeatherMap/Types')
-rw-r--r--lib/Web/OpenWeatherMap/Types/Clouds.hs8
-rw-r--r--lib/Web/OpenWeatherMap/Types/Coord.hs8
-rw-r--r--lib/Web/OpenWeatherMap/Types/CurrentWeather.hs9
-rw-r--r--lib/Web/OpenWeatherMap/Types/Main.hs9
-rw-r--r--lib/Web/OpenWeatherMap/Types/Sys.hs8
-rw-r--r--lib/Web/OpenWeatherMap/Types/Weather.hs8
-rw-r--r--lib/Web/OpenWeatherMap/Types/Wind.hs8
7 files changed, 23 insertions, 35 deletions
diff --git a/lib/Web/OpenWeatherMap/Types/Clouds.hs b/lib/Web/OpenWeatherMap/Types/Clouds.hs
index 78a6e97..4aec757 100644
--- a/lib/Web/OpenWeatherMap/Types/Clouds.hs
+++ b/lib/Web/OpenWeatherMap/Types/Clouds.hs
@@ -1,16 +1,14 @@
{-# LANGUAGE DeriveAnyClass #-}
{-# LANGUAGE DeriveGeneric #-}
-module Web.OpenWeatherMap.Types.Clouds (
- Clouds(..)
-) where
+module Web.OpenWeatherMap.Types.Clouds
+ ( Clouds(..)
+ ) where
import GHC.Generics (Generic)
import Data.Aeson (FromJSON)
-
data Clouds = Clouds
{ all :: Double
} deriving (Show, Generic, FromJSON)
-
diff --git a/lib/Web/OpenWeatherMap/Types/Coord.hs b/lib/Web/OpenWeatherMap/Types/Coord.hs
index d9a9f21..517c532 100644
--- a/lib/Web/OpenWeatherMap/Types/Coord.hs
+++ b/lib/Web/OpenWeatherMap/Types/Coord.hs
@@ -1,17 +1,15 @@
{-# LANGUAGE DeriveAnyClass #-}
{-# LANGUAGE DeriveGeneric #-}
-module Web.OpenWeatherMap.Types.Coord (
- Coord(..)
-) where
+module Web.OpenWeatherMap.Types.Coord
+ ( Coord(..)
+ ) where
import GHC.Generics (Generic)
import Data.Aeson (FromJSON)
-
data Coord = Coord
{ lon :: Double
, lat :: Double
} deriving (Show, Generic, FromJSON)
-
diff --git a/lib/Web/OpenWeatherMap/Types/CurrentWeather.hs b/lib/Web/OpenWeatherMap/Types/CurrentWeather.hs
index 26572a7..e7d4464 100644
--- a/lib/Web/OpenWeatherMap/Types/CurrentWeather.hs
+++ b/lib/Web/OpenWeatherMap/Types/CurrentWeather.hs
@@ -1,12 +1,12 @@
{-# LANGUAGE DeriveAnyClass #-}
{-# LANGUAGE DeriveGeneric #-}
-module Web.OpenWeatherMap.Types.CurrentWeather (
- CurrentWeather(..)
-) where
+module Web.OpenWeatherMap.Types.CurrentWeather
+ ( CurrentWeather(..)
+ ) where
-import Prelude hiding (id)
import GHC.Generics (Generic)
+import Prelude hiding (id)
import Data.Aeson (FromJSON)
@@ -32,4 +32,3 @@ data CurrentWeather = CurrentWeather
, name :: String
, cod :: Int
} deriving (Show, Generic, FromJSON)
-
diff --git a/lib/Web/OpenWeatherMap/Types/Main.hs b/lib/Web/OpenWeatherMap/Types/Main.hs
index 21b1951..8ce3f7b 100644
--- a/lib/Web/OpenWeatherMap/Types/Main.hs
+++ b/lib/Web/OpenWeatherMap/Types/Main.hs
@@ -1,16 +1,16 @@
{-# LANGUAGE DeriveAnyClass #-}
{-# LANGUAGE DeriveGeneric #-}
-module Web.OpenWeatherMap.Types.Main (
- Main(..)
-) where
+module Web.OpenWeatherMap.Types.Main
+ ( Main(..)
+ ) where
import GHC.Generics (Generic)
import Data.Aeson (FromJSON)
-
{-# ANN module "HLint: ignore Use camelCase" #-}
+
data Main = Main
{ temp :: Double
, pressure :: Double
@@ -20,4 +20,3 @@ data Main = Main
, sea_level :: Maybe Double
, grnd_level :: Maybe Double
} deriving (Show, Generic, FromJSON)
-
diff --git a/lib/Web/OpenWeatherMap/Types/Sys.hs b/lib/Web/OpenWeatherMap/Types/Sys.hs
index 8cb932b..b416e30 100644
--- a/lib/Web/OpenWeatherMap/Types/Sys.hs
+++ b/lib/Web/OpenWeatherMap/Types/Sys.hs
@@ -1,18 +1,16 @@
{-# LANGUAGE DeriveAnyClass #-}
{-# LANGUAGE DeriveGeneric #-}
-module Web.OpenWeatherMap.Types.Sys (
- Sys(..)
-) where
+module Web.OpenWeatherMap.Types.Sys
+ ( Sys(..)
+ ) where
import GHC.Generics (Generic)
import Data.Aeson (FromJSON)
-
data Sys = Sys
{ country :: Maybe String
, sunrise :: Int
, sunset :: Int
} deriving (Show, Generic, FromJSON)
-
diff --git a/lib/Web/OpenWeatherMap/Types/Weather.hs b/lib/Web/OpenWeatherMap/Types/Weather.hs
index 090fe0f..5df2c6e 100644
--- a/lib/Web/OpenWeatherMap/Types/Weather.hs
+++ b/lib/Web/OpenWeatherMap/Types/Weather.hs
@@ -1,19 +1,17 @@
{-# LANGUAGE DeriveAnyClass #-}
{-# LANGUAGE DeriveGeneric #-}
-module Web.OpenWeatherMap.Types.Weather (
- Weather(..)
-) where
+module Web.OpenWeatherMap.Types.Weather
+ ( Weather(..)
+ ) where
import GHC.Generics (Generic)
import Data.Aeson (FromJSON)
-
data Weather = Weather
{ id :: Int
, main :: String
, description :: String
, icon :: String
} deriving (Show, Generic, FromJSON)
-
diff --git a/lib/Web/OpenWeatherMap/Types/Wind.hs b/lib/Web/OpenWeatherMap/Types/Wind.hs
index 8481e62..91a1b73 100644
--- a/lib/Web/OpenWeatherMap/Types/Wind.hs
+++ b/lib/Web/OpenWeatherMap/Types/Wind.hs
@@ -1,17 +1,15 @@
{-# LANGUAGE DeriveAnyClass #-}
{-# LANGUAGE DeriveGeneric #-}
-module Web.OpenWeatherMap.Types.Wind (
- Wind(..)
-) where
+module Web.OpenWeatherMap.Types.Wind
+ ( Wind(..)
+ ) where
import GHC.Generics (Generic)
import Data.Aeson (FromJSON)
-
data Wind = Wind
{ speed :: Double
, deg :: Double
} deriving (Show, Generic, FromJSON)
-