From ad1134ad752bbcd678cfb5a80217fabe57fdcd35 Mon Sep 17 00:00:00 2001
From: Igor Pashev <pashev.igor@gmail.com>
Date: Sun, 6 Aug 2017 19:50:58 +0300
Subject: Format with hindent

---
 src/Sproxy/Config.hs | 139 +++++++++++++++++++++++++--------------------------
 1 file changed, 67 insertions(+), 72 deletions(-)

(limited to 'src/Sproxy/Config.hs')

diff --git a/src/Sproxy/Config.hs b/src/Sproxy/Config.hs
index e0f35a3..f1d8004 100644
--- a/src/Sproxy/Config.hs
+++ b/src/Sproxy/Config.hs
@@ -1,9 +1,10 @@
 {-# LANGUAGE OverloadedStrings #-}
-module Sproxy.Config (
-  BackendConf(..)
-, ConfigFile(..)
-, OAuth2Conf(..)
-) where
+
+module Sproxy.Config
+  ( BackendConf(..)
+  , ConfigFile(..)
+  , OAuth2Conf(..)
+  ) where
 
 import Control.Applicative (empty)
 import Data.Aeson (FromJSON, parseJSON)
@@ -11,84 +12,78 @@ import Data.HashMap.Strict (HashMap)
 import Data.Int (Int64)
 import Data.Text (Text)
 import Data.Word (Word16)
-import Data.Yaml (Value(Object), (.:), (.:?), (.!=))
+import Data.Yaml (Value(Object), (.!=), (.:), (.:?))
 
 import Sproxy.Logging (LogLevel(Debug))
 
-data ConfigFile = ConfigFile {
-  cfListen       :: Word16
-, cfSsl          :: Bool
-, cfUser         :: String
-, cfHome         :: FilePath
-, cfLogLevel     :: LogLevel
-, cfSslCert      :: Maybe FilePath
-, cfSslKey       :: Maybe FilePath
-, cfSslCertChain :: [FilePath]
-, cfKey          :: Maybe String
-, cfListen80     :: Maybe Bool
-, cfHttpsPort    :: Maybe Word16
-, cfBackends     :: [BackendConf]
-, cfOAuth2       :: HashMap Text OAuth2Conf
-, cfDataFile     :: Maybe FilePath
-, cfDatabase     :: Maybe String
-, cfPgPassFile   :: Maybe FilePath
-, cfHTTP2        :: Bool
-} deriving (Show)
+data ConfigFile = ConfigFile
+  { cfListen :: Word16
+  , cfSsl :: Bool
+  , cfUser :: String
+  , cfHome :: FilePath
+  , cfLogLevel :: LogLevel
+  , cfSslCert :: Maybe FilePath
+  , cfSslKey :: Maybe FilePath
+  , cfSslCertChain :: [FilePath]
+  , cfKey :: Maybe String
+  , cfListen80 :: Maybe Bool
+  , cfHttpsPort :: Maybe Word16
+  , cfBackends :: [BackendConf]
+  , cfOAuth2 :: HashMap Text OAuth2Conf
+  , cfDataFile :: Maybe FilePath
+  , cfDatabase :: Maybe String
+  , cfPgPassFile :: Maybe FilePath
+  , cfHTTP2 :: Bool
+  } deriving (Show)
 
 instance FromJSON ConfigFile where
-  parseJSON (Object m) = ConfigFile <$>
-        m .:? "listen"         .!= 443
-    <*> m .:? "ssl"            .!= True
-    <*> m .:? "user"           .!= "sproxy"
-    <*> m .:? "home"           .!= "."
-    <*> m .:? "log_level"      .!= Debug
-    <*> m .:? "ssl_cert"
-    <*> m .:? "ssl_key"
-    <*> m .:? "ssl_cert_chain" .!= []
-    <*> m .:? "key"
-    <*> m .:? "listen80"
-    <*> m .:? "https_port"
-    <*> m .:  "backends"
-    <*> m .:  "oauth2"
-    <*> m .:? "datafile"
-    <*> m .:? "database"
-    <*> m .:? "pgpassfile"
-    <*> m .:? "http2"          .!= True
+  parseJSON (Object m) =
+    ConfigFile <$> m .:? "listen" .!= 443 <*> m .:? "ssl" .!= True <*>
+    m .:? "user" .!= "sproxy" <*>
+    m .:? "home" .!= "." <*>
+    m .:? "log_level" .!= Debug <*>
+    m .:? "ssl_cert" <*>
+    m .:? "ssl_key" <*>
+    m .:? "ssl_cert_chain" .!= [] <*>
+    m .:? "key" <*>
+    m .:? "listen80" <*>
+    m .:? "https_port" <*>
+    m .: "backends" <*>
+    m .: "oauth2" <*>
+    m .:? "datafile" <*>
+    m .:? "database" <*>
+    m .:? "pgpassfile" <*>
+    m .:? "http2" .!= True
   parseJSON _ = empty
 
-
-data BackendConf = BackendConf {
-  beName         :: String
-, beAddress      :: String
-, bePort         :: Maybe Word16
-, beSocket       :: Maybe FilePath
-, beCookieName   :: String
-, beCookieDomain :: Maybe String
-, beCookieMaxAge :: Int64
-, beConnCount    :: Int
-} deriving (Show)
+data BackendConf = BackendConf
+  { beName :: String
+  , beAddress :: String
+  , bePort :: Maybe Word16
+  , beSocket :: Maybe FilePath
+  , beCookieName :: String
+  , beCookieDomain :: Maybe String
+  , beCookieMaxAge :: Int64
+  , beConnCount :: Int
+  } deriving (Show)
 
 instance FromJSON BackendConf where
-  parseJSON (Object m) = BackendConf <$>
-        m .:? "name"           .!= "*"
-    <*> m .:? "address"        .!= "127.0.0.1"
-    <*> m .:? "port"
-    <*> m .:? "socket"
-    <*> m .:? "cookie_name"    .!= "sproxy"
-    <*> m .:? "cookie_domain"
-    <*> m .:? "cookie_max_age" .!= (7 * 24 * 60 * 60)
-    <*> m .:? "conn_count"     .!= 32
+  parseJSON (Object m) =
+    BackendConf <$> m .:? "name" .!= "*" <*> m .:? "address" .!= "127.0.0.1" <*>
+    m .:? "port" <*>
+    m .:? "socket" <*>
+    m .:? "cookie_name" .!= "sproxy" <*>
+    m .:? "cookie_domain" <*>
+    m .:? "cookie_max_age" .!= (7 * 24 * 60 * 60) <*>
+    m .:? "conn_count" .!= 32
   parseJSON _ = empty
 
-
-data OAuth2Conf = OAuth2Conf {
-  oa2ClientId     :: String
-, oa2ClientSecret :: String
-} deriving (Show)
+data OAuth2Conf = OAuth2Conf
+  { oa2ClientId :: String
+  , oa2ClientSecret :: String
+  } deriving (Show)
 
 instance FromJSON OAuth2Conf where
-  parseJSON (Object m) = OAuth2Conf <$>
-        m .: "client_id"
-    <*> m .: "client_secret"
+  parseJSON (Object m) =
+    OAuth2Conf <$> m .: "client_id" <*> m .: "client_secret"
   parseJSON _ = empty
-
-- 
cgit v1.2.3