juvix/app/Commands/Dev/Core/Eval.hs

module Commands.Dev.Core.Eval where

import Commands.Base
import Commands.Dev.Core.Eval.Options
import Evaluator
import Juvix.Compiler.Core.Data.InfoTable qualified as Core
import Juvix.Compiler.Core.Translation.FromSource qualified as Core

runCommand :: forall r. (Members '[Embed IO, App] r) => CoreEvalOptions -> Sem r ()
runCommand opts = do
  f :: Path Abs File <- someBaseToAbs' b
  s <- embed (readFile (toFilePath f))
  case Core.runParser (toFilePath f) Core.emptyInfoTable s of
    Left err -> exitJuvixError (JuvixError err)
    Right (tab, Just node) -> do evalAndPrint opts tab node
    Right (_, Nothing) -> return ()
  where
    b :: SomeBase File
    b = opts ^. coreEvalInputFile . pathPath