{-# LANGUAGE NoImplicitPrelude #-}
module Stack.Options.PathParser
( pathParser
) where
import qualified Data.Text as T
import Options.Applicative ( Parser, flag, help, long )
import Stack.Path ( paths )
import Stack.Prelude
pathParser :: Parser [Text]
pathParser :: Parser [Text]
pathParser = forall (f :: * -> *) a b.
Applicative f =>
(a -> f (Maybe b)) -> [a] -> f [b]
mapMaybeA
( \(String
desc, Text
name, UseHaddocks (PathInfo -> Text)
_) -> forall a. a -> a -> Mod FlagFields a -> Parser a
flag forall a. Maybe a
Nothing (forall a. a -> Maybe a
Just Text
name)
( forall (f :: * -> *) a. HasName f => String -> Mod f a
long (Text -> String
T.unpack Text
name)
forall a. Semigroup a => a -> a -> a
<> forall (f :: * -> *) a. String -> Mod f a
help String
desc
)
)
[(String, Text, UseHaddocks (PathInfo -> Text))]
paths