From 8d54b02d3c4bffbc2c5525e9fc64fac44b77ab96 Mon Sep 17 00:00:00 2001 From: Igor Pashev Date: Tue, 7 Apr 2020 16:06:11 +0200 Subject: Reformat with hindent --- lib/Web/OpenWeatherMap/Types/Clouds.hs | 8 +++----- lib/Web/OpenWeatherMap/Types/Coord.hs | 8 +++----- lib/Web/OpenWeatherMap/Types/CurrentWeather.hs | 9 ++++----- lib/Web/OpenWeatherMap/Types/Main.hs | 9 ++++----- lib/Web/OpenWeatherMap/Types/Sys.hs | 8 +++----- lib/Web/OpenWeatherMap/Types/Weather.hs | 8 +++----- lib/Web/OpenWeatherMap/Types/Wind.hs | 8 +++----- 7 files changed, 23 insertions(+), 35 deletions(-) (limited to 'lib/Web/OpenWeatherMap/Types') 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) - -- cgit v1.2.3