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

🔥 a redundant StringConv constraint.

Browse Source
This commit is contained in:
Rob Rix 2017-05-29 10:53:29 -04:00
parent b67e951197
commit 351ce77d11
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/Renderer.hs
View File

@ -32,7 +32,7 @@ data Renderer input output where
ToCRenderer :: (HasField fields Category, HasField fields (Maybe Declaration), HasField fields SourceSpan) => Renderer (Both SourceBlob, Diff (Syntax Text) (Record fields)) Summaries ToCRenderer :: (HasField fields Category, HasField fields (Maybe Declaration), HasField fields SourceSpan) => Renderer (Both SourceBlob, Diff (Syntax Text) (Record fields)) Summaries
SExpressionParseTreeRenderer :: (HasField fields Category, HasField fields SourceSpan, Foldable f) => Renderer (Identity SourceBlob, Term f (Record fields)) ByteString SExpressionParseTreeRenderer :: (HasField fields Category, HasField fields SourceSpan, Foldable f) => Renderer (Identity SourceBlob, Term f (Record fields)) ByteString
runRenderer :: (Monoid output, StringConv output ByteString) => Renderer input output -> input -> output runRenderer :: Monoid output => Renderer input output -> input -> output
runRenderer renderer = case renderer of runRenderer renderer = case renderer of
PatchRenderer -> File . uncurry R.patch PatchRenderer -> File . uncurry R.patch
JSONRenderer -> uncurry R.json JSONRenderer -> uncurry R.json