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 showing info & syntax.

Browse Source
This commit is contained in:
Rob Rix 2016-02-25 16:28:36 -07:00
parent 1e07c5f7e0
commit 0b1bec523f
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/Renderer/JSON.hs
View File

@ -9,6 +9,7 @@ import Row
import Renderer
import Renderer.Split
import Source hiding ((++), toList)
import Control.Comonad.Cofree
import Control.Monad.Free
import Data.Foldable
@ -29,4 +30,5 @@ instance Show (JSON a) where
showPatch (SplitInsert term) = "{'insert':" ++ showTerm term ++ "}"
showPatch (SplitDelete term) = "{'delete':" ++ showTerm term ++ "}"
showPatch (SplitReplace term) = "{'replace':" ++ showTerm term ++ "}"
showTerm term = "{}"
showTerm (info :< syntax) = showInfoSyntax info syntax
showInfoSyntax info syntax = "{}"