github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-12-21 13:51:44 +03:00
Code Issues Projects Releases Wiki Activity

Provide the declaration decorator in Renderer.

Browse Source
This commit is contained in:
Rob Rix 2017-05-10 15:41:04 -04:00
parent d9e21d2ab7
commit aa45955ca3
2 changed files with 8 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/Arguments.hs
View File

@ -6,10 +6,8 @@ import Data.Maybe
import Data.Record import Data.Record
import Data.String import Data.String
import Info import Info
import Language.Ruby.Syntax (decoratorWithAlgebra)
import Prologue import Prologue
import Renderer import Renderer
import Renderer.TOC (declarationAlgebra)
import Source import Source
import Syntax import Syntax
import Term import Term
@ -49,7 +47,7 @@ sExpressionDiff :: DiffMode -> FilePath -> [FilePath] -> DiffArguments
sExpressionDiff = DiffArguments (SExpressionDiffRenderer TreeOnly) (const identity) sExpressionDiff = DiffArguments (SExpressionDiffRenderer TreeOnly) (const identity)
tocDiff :: DiffMode -> FilePath -> [FilePath] -> DiffArguments tocDiff :: DiffMode -> FilePath -> [FilePath] -> DiffArguments
tocDiff = DiffArguments ToCRenderer (decoratorWithAlgebra . declarationAlgebra) tocDiff = DiffArguments ToCRenderer declarationDecorator
data ParseMode = ParseCommit String [FilePath] | ParsePaths [FilePath] data ParseMode = ParseCommit String [FilePath] | ParsePaths [FilePath]

9
src/Renderer.hs
View File

@ -1,9 +1,10 @@
{-# LANGUAGE GADTs, MultiParamTypeClasses #-} {-# LANGUAGE DataKinds, GADTs, MultiParamTypeClasses, TypeOperators #-}
module Renderer module Renderer
( DiffRenderer(..) ( DiffRenderer(..)
, SExpressionFormat(..) , SExpressionFormat(..)
, resolveDiffRenderer , resolveDiffRenderer
, runDiffRenderer , runDiffRenderer
, declarationDecorator
, ParseTreeRenderer(..) , ParseTreeRenderer(..)
, resolveParseTreeRenderer , resolveParseTreeRenderer
, runParseTreeRenderer , runParseTreeRenderer
@ -26,7 +27,7 @@ import Renderer.Patch as R
import Renderer.SExpression as R import Renderer.SExpression as R
import Renderer.Summary as R import Renderer.Summary as R
import Renderer.TOC as R import Renderer.TOC as R
import Source (SourceBlob(..)) import Source (SourceBlob(..), Source)
import Syntax as S import Syntax as S
import Term import Term
@ -50,6 +51,10 @@ runDiffRenderer :: (Monoid output, StringConv output ByteString) => DiffRenderer
runDiffRenderer = foldMap . uncurry . resolveDiffRenderer runDiffRenderer = foldMap . uncurry . resolveDiffRenderer
declarationDecorator :: Source -> Term (Syntax Text) (Record DefaultFields) -> Term (Syntax Text) (Record (Maybe Declaration ': DefaultFields))
declarationDecorator = decoratorWithAlgebra . declarationAlgebra
data ParseTreeRenderer fields output where data ParseTreeRenderer fields output where
SExpressionParseTreeRenderer :: (HasField fields Category, HasField fields SourceSpan) => SExpressionFormat -> ParseTreeRenderer fields ByteString SExpressionParseTreeRenderer :: (HasField fields Category, HasField fields SourceSpan) => SExpressionFormat -> ParseTreeRenderer fields ByteString
JSONParseTreeRenderer :: (ToJSONFields (Record fields), HasField fields Range) => ParseTreeRenderer fields [Value] JSONParseTreeRenderer :: (ToJSONFields (Record fields), HasField fields Range) => ParseTreeRenderer fields [Value]