{-# LANGUAGE NoImplicitPrelude #-}
{-# LANGUAGE OverloadedStrings #-}

module Stack.Options.LogLevelParser
  ( logLevelOptsParser
  ) where

import qualified Data.Text as T
import           Options.Applicative
                   ( Parser, completeWith, flag', help, long, metavar, short
                   , strOption
                   )
import           Stack.Options.Utils ( hideMods )
import           Stack.Prelude

-- | Parser for a logging level.

logLevelOptsParser :: Bool -> Maybe LogLevel -> Parser (Maybe LogLevel)
logLevelOptsParser :: Bool -> Maybe LogLevel -> Parser (Maybe LogLevel)
logLevelOptsParser Bool
hide Maybe LogLevel
defLogLevel = forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
fmap (forall a. a -> Maybe a
Just forall b c a. (b -> c) -> (a -> b) -> a -> c
. [Char] -> LogLevel
parse)
      (forall s. IsString s => Mod OptionFields s -> Parser s
strOption
        (  forall (f :: * -> *) a. HasName f => [Char] -> Mod f a
long [Char]
"verbosity"
        forall a. Semigroup a => a -> a -> a
<> forall (f :: * -> *) a. HasMetavar f => [Char] -> Mod f a
metavar [Char]
"VERBOSITY"
        forall a. Semigroup a => a -> a -> a
<> forall (f :: * -> *) a. HasCompleter f => [[Char]] -> Mod f a
completeWith [[Char]
"silent", [Char]
"error", [Char]
"warn", [Char]
"info", [Char]
"debug"]
        forall a. Semigroup a => a -> a -> a
<> forall (f :: * -> *) a. [Char] -> Mod f a
help [Char]
"Verbosity: silent, error, warn, info, debug"
        forall a. Semigroup a => a -> a -> a
<> forall (f :: * -> *) a. Bool -> Mod f a
hideMods Bool
hide
        ))
  forall (f :: * -> *) a. Alternative f => f a -> f a -> f a
<|> forall a. a -> Mod FlagFields a -> Parser a
flag' (forall a. a -> Maybe a
Just LogLevel
verboseLevel)
        (  forall (f :: * -> *) a. HasName f => Char -> Mod f a
short Char
'v'
        forall a. Semigroup a => a -> a -> a
<> forall (f :: * -> *) a. HasName f => [Char] -> Mod f a
long [Char]
"verbose"
        forall a. Semigroup a => a -> a -> a
<> forall (f :: * -> *) a. [Char] -> Mod f a
help
             (  [Char]
"Enable verbose mode: verbosity level \""
             forall a. Semigroup a => a -> a -> a
<> LogLevel -> [Char]
showLevel LogLevel
verboseLevel
             forall a. Semigroup a => a -> a -> a
<> [Char]
"\""
             )
        forall a. Semigroup a => a -> a -> a
<> forall (f :: * -> *) a. Bool -> Mod f a
hideMods Bool
hide
        )
  forall (f :: * -> *) a. Alternative f => f a -> f a -> f a
<|> forall a. a -> Mod FlagFields a -> Parser a
flag' (forall a. a -> Maybe a
Just LogLevel
silentLevel)
        (  forall (f :: * -> *) a. HasName f => [Char] -> Mod f a
long [Char]
"silent"
        forall a. Semigroup a => a -> a -> a
<> forall (f :: * -> *) a. [Char] -> Mod f a
help (  [Char]
"Enable silent mode: verbosity level \""
                forall a. Semigroup a => a -> a -> a
<> LogLevel -> [Char]
showLevel LogLevel
silentLevel
                forall a. Semigroup a => a -> a -> a
<> [Char]
"\""
                )
        forall a. Semigroup a => a -> a -> a
<> forall (f :: * -> *) a. Bool -> Mod f a
hideMods Bool
hide
        )
  forall (f :: * -> *) a. Alternative f => f a -> f a -> f a
<|> forall (f :: * -> *) a. Applicative f => a -> f a
pure Maybe LogLevel
defLogLevel
 where
  verboseLevel :: LogLevel
verboseLevel = LogLevel
LevelDebug
  silentLevel :: LogLevel
silentLevel = Text -> LogLevel
LevelOther Text
"silent"
  showLevel :: LogLevel -> [Char]
showLevel LogLevel
l = case LogLevel
l of
    LogLevel
LevelDebug -> [Char]
"debug"
    LogLevel
LevelInfo -> [Char]
"info"
    LogLevel
LevelWarn -> [Char]
"warn"
    LogLevel
LevelError -> [Char]
"error"
    LevelOther Text
x -> Text -> [Char]
T.unpack Text
x
  parse :: [Char] -> LogLevel
parse [Char]
s = case [Char]
s of
    [Char]
"debug" -> LogLevel
LevelDebug
    [Char]
"info" -> LogLevel
LevelInfo
    [Char]
"warn" -> LogLevel
LevelWarn
    [Char]
"error" -> LogLevel
LevelError
    [Char]
_ -> Text -> LogLevel
LevelOther ([Char] -> Text
T.pack [Char]
s)