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

Stub in range/categories/syntax showing.

Browse Source
This commit is contained in:
Rob Rix 2016-02-25 16:31:30 -07:00
parent f205a59f6d
commit 543acb01c0
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/Renderer/JSON.hs
View File

@ -5,6 +5,7 @@ module Renderer.JSON (
import Diff
import Line
import Range
import Row
import Renderer
import Renderer.Split
@ -31,4 +32,7 @@ instance Show (JSON a) where
showPatch (SplitDelete term) = "{'delete':" ++ showTerm term ++ "}"
showPatch (SplitReplace term) = "{'replace':" ++ showTerm term ++ "}"
showTerm (info :< syntax) = showInfoSyntax info syntax
showInfoSyntax info syntax = "{}"
showInfoSyntax (Info range categories) syntax = "{'range':" ++ showRange range ++ ",'categories':" ++ showCategories categories ++ ",'syntax':" ++ showSyntax syntax ++ "}"
showRange (Range start end) = "{}"
showCategories c = "{}"
showSyntax syntax = "{}"