github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-12-01 00:33:59 +03:00
Code Issues Projects Releases Wiki Activity

Define the identity decorator.

Browse Source
This commit is contained in:
Rob Rix 2017-05-12 16:24:29 -04:00
parent a586762998
commit 0d43cccd6a
1 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
src/Arguments.hs
View File

@ -36,17 +36,20 @@ instance Show DiffArguments where
type DiffArguments' = DiffMode -> FilePath -> [FilePath] -> DiffArguments
identityDecorator :: Source -> Term f a -> Term f a
identityDecorator = const identity
patchDiff :: DiffArguments'
patchDiff = DiffArguments PatchRenderer (const identity)
patchDiff = DiffArguments PatchRenderer identityDecorator
jsonDiff :: DiffArguments'
jsonDiff = DiffArguments JSONDiffRenderer (const identity)
jsonDiff = DiffArguments JSONDiffRenderer identityDecorator
summaryDiff :: DiffArguments'
summaryDiff = DiffArguments SummaryRenderer (const identity)
summaryDiff = DiffArguments SummaryRenderer identityDecorator
sExpressionDiff :: DiffArguments'
sExpressionDiff = DiffArguments (SExpressionDiffRenderer TreeOnly) (const identity)
sExpressionDiff = DiffArguments (SExpressionDiffRenderer TreeOnly) identityDecorator
tocDiff :: DiffArguments'
tocDiff = DiffArguments ToCRenderer declarationDecorator