From f9c20bc46207e9519f9549cae2210eecf36429bf Mon Sep 17 00:00:00 2001 From: Rob Rix Date: Tue, 1 Oct 2019 12:10:51 -0400 Subject: [PATCH] Use ToTags for the legacy tagging API as well. --- src/Semantic/Api/Symbols.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/Semantic/Api/Symbols.hs b/src/Semantic/Api/Symbols.hs index 7898a13fd..3817145fe 100644 --- a/src/Semantic/Api/Symbols.hs +++ b/src/Semantic/Api/Symbols.hs @@ -43,7 +43,7 @@ legacyParseSymbols blobs = Legacy.ParseTreeSymbolResponse <$> distributeFoldMap symbolsToSummarize = ["Function", "Method", "Class", "Module"] renderToSymbols :: (IsTaggable f, Applicative m) => Term f Loc -> m [Legacy.File] - renderToSymbols = pure . pure . tagsToFile . runTagging (blobLanguage blob) blobSource symbolsToSummarize + renderToSymbols = pure . pure . tagsToFile . Precise.tags blobSource . ALaCarteTerm (blobLanguage blob) symbolsToSummarize tagsToFile :: [Tag] -> Legacy.File tagsToFile tags = Legacy.File (pack (blobPath blob)) (pack (show (blobLanguage blob))) (fmap tagToSymbol tags)