mirror of
https://github.com/anoma/juvix.git
synced 2024-12-22 06:11:36 +03:00
31 lines
1.3 KiB
Haskell
31 lines
1.3 KiB
Haskell
module Commands.Dev.Highlight where
|
|
|
|
import Commands.Base
|
|
import Commands.Dev.Highlight.Options
|
|
import Juvix.Compiler.Concrete.Data.Highlight qualified as Highlight
|
|
import Juvix.Compiler.Concrete.Data.InfoTable qualified as Scoper
|
|
import Juvix.Compiler.Concrete.Translation.FromParsed.Analysis.Scoping qualified as Scoper
|
|
import Juvix.Compiler.Concrete.Translation.FromSource qualified as Parser
|
|
|
|
runCommand :: Members '[Embed IO, App] r => HighlightOptions -> Sem r ()
|
|
runCommand HighlightOptions {..} = do
|
|
res <- runPipelineEither _highlightInputFile upToScoping
|
|
inputFile <- someBaseToAbs' (_highlightInputFile ^. pathPath)
|
|
case res of
|
|
Left err -> do
|
|
let filterByFile = filter ((== inputFile) . (^. intervalFile))
|
|
genOpts <- askGenericOptions
|
|
sayRaw (Highlight.goErrors _highlightBackend (filterByFile . run . runReader genOpts $ errorIntervals err))
|
|
Right r -> do
|
|
let tbl = r ^. _2 . Scoper.resultParserResult . Parser.resultTable
|
|
items = tbl ^. Parser.infoParsedItems
|
|
names = r ^. _2 . (Scoper.resultScoperTable . Scoper.infoNames)
|
|
hinput =
|
|
Highlight.filterInput
|
|
inputFile
|
|
Highlight.HighlightInput
|
|
{ _highlightNames = names,
|
|
_highlightParsed = items
|
|
}
|
|
sayRaw (Highlight.go _highlightBackend hinput)
|