juvix/app/Commands/Dev/Repl/Options.hs

module Commands.Dev.Repl.Options where

import Commands.Repl.Options
import CommonOptions
import Juvix.Compiler.Core.Data.TransformationId (toStoredTransformations)

parseDevRepl :: Parser ReplOptions
parseDevRepl = do
  let _replPrintValues = False
      _replIsDev = True
  _replInputFile <- optional (parseInputFile FileExtJuvix)
  _replTransformations <- do
    ts <- optCoreTransformationIds
    pure $
      if
          | null ts -> toStoredTransformations
          | otherwise -> ts
  _replNoDisambiguate <- optNoDisambiguate
  _replShowDeBruijn <-
    switch
      ( long "show-de-bruijn"
          <> help "Show variable de Bruijn indices"
      )
  _replNoPrelude <-
    switch
      ( long "no-prelude"
          <> help "Do not load the Prelude module on launch"
      )
  pure ReplOptions {..}