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/Main.hs | 25 ++++++++++++++-----------
 1 file changed, 14 insertions(+), 11 deletions(-)

(limited to 'src/Main.hs')

diff --git a/src/Main.hs b/src/Main.hs
index 7101af0..20e3ebd 100644
--- a/src/Main.hs
+++ b/src/Main.hs
@@ -1,20 +1,24 @@
 {-# LANGUAGE QuasiQuotes #-}
-module Main (
-  main
-) where
+
+module Main
+  ( main
+  ) where
 
 import Data.Maybe (fromJust)
 import Data.Version (showVersion)
 import Paths_sproxy2 (version) -- from cabal
+import qualified System.Console.Docopt.NoTH as O
 import System.Environment (getArgs)
 import Text.InterpolatedString.Perl6 (qc)
-import qualified System.Console.Docopt.NoTH as O
 
 import Sproxy.Server (server)
 
 usage :: String
-usage =  "sproxy2 " ++ showVersion version ++
-  " - HTTP proxy for authenticating users via OAuth2" ++ [qc|
+usage =
+  "sproxy2 " ++
+  showVersion version ++
+  " - HTTP proxy for authenticating users via OAuth2" ++
+  [qc|
 
 Usage:
   sproxy2 [options]
@@ -30,8 +34,7 @@ main = do
   doco <- O.parseUsageOrExit usage
   args <- O.parseArgsOrExit doco =<< getArgs
   if args `O.isPresent` O.longOption "help"
-  then putStrLn $ O.usage doco
-  else do
-    let configFile = fromJust . O.getArg args $ O.longOption "config"
-    server configFile
-
+    then putStrLn $ O.usage doco
+    else do
+      let configFile = fromJust . O.getArg args $ O.longOption "config"
+      server configFile
-- 
cgit v1.2.3