From 65b71a99fdb60ad063cb7e8976143027b1e260e7 Mon Sep 17 00:00:00 2001
From: Igor Pashev <pashev.igor@gmail.com>
Date: Thu, 3 Aug 2017 21:03:32 +0300
Subject: hindent wins

---
 src/Main.hs | 72 +++++++++++++++++++++++++++++++++----------------------------
 1 file changed, 39 insertions(+), 33 deletions(-)

(limited to 'src/Main.hs')

diff --git a/src/Main.hs b/src/Main.hs
index 532bf02..58083a4 100644
--- a/src/Main.hs
+++ b/src/Main.hs
@@ -1,8 +1,8 @@
 {-# LANGUAGE QuasiQuotes #-}
 
-module Main (
-  main
-) where
+module Main
+  ( main
+  ) where
 
 import Data.ByteString.Char8 (pack)
 import qualified Data.ConfigFile as Cf
@@ -10,8 +10,9 @@ import Data.Either.Utils (forceEither)
 import Data.List (isPrefixOf)
 import Data.Maybe (fromJust)
 import Data.Version (showVersion)
-import Database.MySQL.Base (ConnectInfo (..), defaultSSLInfo)
-import Database.MySQL.Base.Types (Option (ReadDefaultFile, ReadDefaultGroup))
+import Database.MySQL.Base (ConnectInfo(..), defaultSSLInfo)
+import Database.MySQL.Base.Types
+       (Option(ReadDefaultFile, ReadDefaultGroup))
 import Paths_mywatch (getDataDir, version)
 import qualified System.Console.Docopt.NoTH as O
 import System.Environment (getArgs)
@@ -23,8 +24,10 @@ usage :: IO String
 usage = do
   dataDir <- getDataDir
   return $
-    "mywatch " ++ showVersion version
-    ++ " view queries on many MySQL servers" ++ [qc|
+    "mywatch " ++
+    showVersion version ++
+    " view queries on many MySQL servers" ++
+    [qc|
 
 Usage:
   mywatch [options] MYCNF
@@ -40,35 +43,38 @@ Options:
 
 |]
 
-main :: IO()
+main :: IO ()
 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
-      file = fromJust $ O.getArg args $ O.argument "MYCNF"
-      port = O.getArg args $ O.longOption "port"
-      socket = fromJust $ O.getArg args $ O.longOption "socket"
-      datadir = fromJust $ O.getArg args $ O.longOption "datadir"
-
-    cf <- forceEither <$> Cf.readfile Cf.emptyCP file
-    let
-      servers = filter ("client" /=) . Cf.sections $ cf
-      myInfo = map (\g -> ConnectInfo {
-        connectDatabase = "",
-        connectHost     = "",
-        connectPassword = "",
-        connectPath     = "",
-        connectPort     = 0,
+    then putStrLn $ O.usage doco
+    else do
+      let file = fromJust $ O.getArg args $ O.argument "MYCNF"
+          port = O.getArg args $ O.longOption "port"
+          socket = fromJust $ O.getArg args $ O.longOption "socket"
+          datadir = fromJust $ O.getArg args $ O.longOption "datadir"
+      cf <- forceEither <$> Cf.readfile Cf.emptyCP file
+      let servers = filter ("client" /=) . Cf.sections $ cf
+          myInfo =
+            map
+              (\g ->
+                 ConnectInfo
+                 { connectDatabase = ""
+                 , connectHost = ""
+                 , connectPassword = ""
+                 , connectPath = ""
+                 , connectPort = 0
         -- FIXME: https://jira.mariadb.org/browse/MDEV-10246
-        connectSSL      = if any (isPrefixOf "ssl") (forceEither $ Cf.options cf g)
-                          then Just defaultSSLInfo else Nothing,
-        connectUser     = "",
+                 , connectSSL =
+                     if any (isPrefixOf "ssl") (forceEither $ Cf.options cf g)
+                       then Just defaultSSLInfo
+                       else Nothing
+                 , connectUser = ""
         -- FIXME: Work aroung buggy mysql: unsafeUseAsCString creates garbage.
-        connectOptions  = [ ReadDefaultFile file, ReadDefaultGroup (pack $ g ++ "\0") ]
-      }) servers
-      listen = maybe (Right socket) (Left . read) port
-    server listen myInfo datadir
-
+                 , connectOptions =
+                     [ReadDefaultFile file, ReadDefaultGroup (pack $ g ++ "\0")]
+                 })
+              servers
+          listen = maybe (Right socket) (Left . read) port
+      server listen myInfo datadir
-- 
cgit v1.2.3