Tidy: formatting and import order

app/Main.hs

@@ -71,12 +71,15 @@ cliParser =
             )
         <*> optional
             ( option
-                (maybeReader (\s -> case T.toLower (T.pack s) of
+                ( maybeReader
+                    ( \s -> case T.toLower (T.pack s) of
                         "debug" -> Just Debug
                         "info" -> Just Info
                         "warn" -> Just Warn
                         "error" -> Just Error
-                    _       -> Nothing))
+                        _ -> Nothing
+                    )
+                )
                 ( long "log-level"
                     <> metavar "LEVEL"
                     <> help "Minimum log level: debug, info, warn, or error (default: info)"
@@ -123,7 +126,10 @@ main = do
                     pure (opts, Just cfgPath)
                 else
                     pure
-                        ( applyOverrides mDebounceOverride (cliLogLevel cli) (cliLogFile cli)
+                        ( applyOverrides
+                            mDebounceOverride
+                            (cliLogLevel cli)
+                            (cliLogFile cli)
                             defaultOptions
                                 { optRepos =
                                     [ defaultRepoConfig
@@ -162,7 +168,6 @@ main = do
             mapM_ (\r -> hPutStrLn stderr ("  - " <> rcPath r)) repos
             runConverge options
 
-
 -- | Apply CLI overrides (debounce, log level, log file) to Options.
 applyOverrides :: Maybe Int -> Maybe LogLevel -> Maybe FilePath -> Options -> Options
 applyOverrides mDebounce mLogLevel mLogFile opts =

src/Converge.hs

@@ -198,8 +198,9 @@ configFileExists = defaultConfigPath >>= doesFileExist
 -- Logging
 ----------------------------------------------------------------------
 
--- | Log a timestamped message at a given level.  Messages below the
--- Logger's configured minimum level are silently dropped.
+{- | Log a timestamped message at a given level.  Messages below the
+Logger's configured minimum level are silently dropped.
+-}
 logMsg :: Logger -> LogLevel -> Text -> IO ()
 logMsg (Logger lock lvl handle) level msg =
     when (level >= lvl) $

test/TestHelper.hs

@@ -16,7 +16,7 @@ module TestHelper (
 ) where
 
 import Control.Concurrent.MVar (newMVar)
-import Converge (Logger (..), LogLevel (..))
+import Converge (LogLevel (..), Logger (..))
 import Data.Text (Text)
 import qualified Data.Text as T
 import System.Directory (createDirectory)