Reformat with hindent

9 files changed, 62 insertions, 75 deletions

diff --git a/lib/Web/OpenWeatherMap/API.hs b/lib/Web/OpenWeatherMap/API.hs
index 757a6be..8a1690e 100644
--- a/lib/Web/OpenWeatherMap/API.hs
+++ b/lib/Web/OpenWeatherMap/API.hs
@@ -2,43 +2,37 @@
 Direct API functions.
 For API key (a.k.a appid) refer to <http://openweathermap.org/appid>.
 -}
-
 {-# LANGUAGE DataKinds #-}
 {-# LANGUAGE TypeOperators #-}
 
-module Web.OpenWeatherMap.API (
-  weatherByName,
-  weatherByCoord
-) where
+module Web.OpenWeatherMap.API
+  ( weatherByName
+  , weatherByCoord
+  ) where
 
 import Data.Proxy (Proxy(..))
 
-import Servant.API ((:>), (:<|>)(..), JSON, Get, QueryParam)
+import Servant.API ((:<|>)(..), (:>), Get, JSON, QueryParam)
 import Servant.Client (ClientM, client)
 
 import Web.OpenWeatherMap.Types.CurrentWeather (CurrentWeather)
 
+type GetCurrentWeather = AppId :> Get '[ JSON] CurrentWeather
 
-type GetCurrentWeather = AppId :> Get '[JSON] CurrentWeather
 type AppId = QueryParam "appid" String
 
 type API
-     = "weather" :> QueryParam "q" String :> GetCurrentWeather
-  :<|> "weather" :> QueryParam "lat" Double :> QueryParam "lon" Double
-                 :> GetCurrentWeather
+   = "weather" :> QueryParam "q" String :> GetCurrentWeather :<|> "weather" :> QueryParam "lat" Double :> QueryParam "lon" Double :> GetCurrentWeather
 
 -- | Request current weather in the city.
-weatherByName
-  :: Maybe String  -- ^ City name, e. g. \"Moscow\" or \"Moscow,ru\".
-  -> Maybe String  -- ^ API key.
+weatherByName ::
+     Maybe String -- ^ City name, e. g. \"Moscow\" or \"Moscow,ru\".
+  -> Maybe String -- ^ API key.
   -> ClientM CurrentWeather
-
 -- | Request current weather at the geographic coordinates (in decimal degrees).
-weatherByCoord
-  :: Maybe Double  -- ^ Latitude, e. g. 55.7522200 for Moscow.
-  -> Maybe Double  -- ^ Longitude, e. g. 37.6155600 for Moscow.
-  -> Maybe String  -- ^ API key.
+weatherByCoord ::
+     Maybe Double -- ^ Latitude, e. g. 55.7522200 for Moscow.
+  -> Maybe Double -- ^ Longitude, e. g. 37.6155600 for Moscow.
+  -> Maybe String -- ^ API key.
   -> ClientM CurrentWeather
-
 weatherByName :<|> weatherByCoord = client (Proxy :: Proxy API)
-
diff --git a/lib/Web/OpenWeatherMap/Client.hs b/lib/Web/OpenWeatherMap/Client.hs
index 758ee8f..c7ad7b6 100644
--- a/lib/Web/OpenWeatherMap/Client.hs
+++ b/lib/Web/OpenWeatherMap/Client.hs
@@ -1,36 +1,42 @@
 {-|
 High-level client functions perfoming requests to OpenWeatherMap API.
 -}
-module Web.OpenWeatherMap.Client (
-  Location(..),
-  getWeather
-) where
+module Web.OpenWeatherMap.Client
+  ( Location(..)
+  , getWeather
+  ) where
+
+import Network.HTTP.Client (defaultManagerSettings, newManager)
+import Servant.Client
+  ( BaseUrl(BaseUrl)
+  , ClientEnv
+  , ClientError
+  , ClientM
+  , Scheme(Http)
+  , mkClientEnv
+  , runClientM
+  )
 
-import Network.HTTP.Client (newManager, defaultManagerSettings)
-import Servant.Client (BaseUrl(BaseUrl), ClientEnv, mkClientEnv, ClientM, Scheme(Http), ClientError, runClientM)
-
-import Web.OpenWeatherMap.Types.CurrentWeather (CurrentWeather)
 import qualified Web.OpenWeatherMap.API as API
-
+import Web.OpenWeatherMap.Types.CurrentWeather (CurrentWeather)
 
 -- | Various way to specify location.
 data Location
-  = Name String          -- ^ City name.
-  | Coord Double Double  -- ^ Geographic coordinates: latitude and longitude.
-
+  = Name String -- ^ City name.
+  | Coord Double
+          Double -- ^ Geographic coordinates: latitude and longitude.
 
 -- | Make a request to OpenWeatherMap API
 --   and return current weather in given location.
-getWeather
-  :: String -- ^ API key.
+getWeather ::
+     String -- ^ API key.
   -> Location
   -> IO (Either ClientError CurrentWeather)
-getWeather appid loc =
-  defaultEnv >>= runClientM (api loc appid)
+getWeather appid loc = defaultEnv >>= runClientM (api loc appid)
 
-api
-  :: Location
-  -> String                  -- ^ API key.
+api ::
+     Location
+  -> String -- ^ API key.
   -> ClientM CurrentWeather
 api (Name city) = API.weatherByName (Just city) . Just
 api (Coord lat lon) = API.weatherByCoord (Just lat) (Just lon) . Just
@@ -44,4 +50,3 @@ defaultEnv = do
 -- XXX appid is passed in clear text. Oops.
 baseUrl :: BaseUrl
 baseUrl = BaseUrl Http "api.openweathermap.org" 80 "/data/2.5"
-
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)
-