juvix/app/Commands/Dev/Highlight.hs

module Commands.Dev.Highlight where

import Commands.Base
import Commands.Dev.Highlight.Options
import Juvix.Compiler.Concrete.Data.Highlight qualified as Highlight

runCommand :: Members '[Embed IO, App] r => HighlightOptions -> Sem r ()
runCommand HighlightOptions {..} = do
  entry <- getEntryPoint _highlightInputFile
  inputFile <- fromAppPathFile _highlightInputFile
  hinput <-
    Highlight.filterInput
      inputFile
      <$> liftIO (runPipelineHighlight entry upToInternalTyped)
  sayRaw (Highlight.highlight _highlightBackend hinput)