module Shrun.Configuration.Args
  ( Args (..),
    defaultArgs,
  )
where

import Shrun.Configuration.Args.Parsing
  ( Args
      ( MkArgs,
        commands,
        configPaths,
        coreConfig,
        dryRun,
        edges
      ),
  )
import Shrun.Configuration.Default (Default (def))
import Shrun.Prelude

defaultArgs :: NESeq Text -> Args m
defaultArgs :: forall m. NESeq Text -> Args m
defaultArgs NESeq Text
commands =
  MkArgs
    { configPaths :: Seq (WithDisabled OsPath)
configPaths = Seq (WithDisabled OsPath)
forall a. Seq a
Empty,
      coreConfig :: CoreConfigArgs m
coreConfig = CoreConfigArgs m
forall a. Default a => a
def,
      NESeq Text
commands :: NESeq Text
commands :: NESeq Text
commands,
      edges :: Maybe (WithDisabled EdgeArgs)
edges = Maybe (WithDisabled EdgeArgs)
forall a. Maybe a
Nothing,
      dryRun :: Bool
dryRun = Bool
False
    }