{-# LANGUAGE NoImplicitPrelude #-}
module Stack.Options.EvalParser
( evalOptsParser
) where
import Options.Applicative ( Parser, metavar, strArgument )
import Stack.Eval ( EvalOpts (..) )
import Stack.Options.ExecParser ( execOptsExtraParser )
import Stack.Prelude
evalOptsParser ::
String
-> Parser EvalOpts
evalOptsParser :: String -> Parser EvalOpts
evalOptsParser String
meta = String -> ExecOptsExtra -> EvalOpts
EvalOpts
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> Parser String
eoArgsParser
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Parser ExecOptsExtra
execOptsExtraParser
where
eoArgsParser :: Parser String
eoArgsParser :: Parser String
eoArgsParser = forall s. IsString s => Mod ArgumentFields s -> Parser s
strArgument (forall (f :: * -> *) a. HasMetavar f => String -> Mod f a
metavar String
meta)