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

Define runSerialize tacitly.

Browse Source
This commit is contained in:
Rob Rix 2018-05-11 14:45:53 -04:00
parent e427457801
commit 93c61afa14
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/Serializing/Format.hs
View File

@ -17,8 +17,8 @@ data Format input where
Show :: Show input => Format input Show :: Show input => Format input
runSerialize :: Format input -> input -> Builder runSerialize :: Format input -> input -> Builder
runSerialize (DOT style) graph = serializeDOT style graph runSerialize (DOT style) = serializeDOT style
runSerialize SExpression input = serializeSExpression input runSerialize SExpression = serializeSExpression
runSerialize Show input = stringUtf8 (show input) runSerialize Show = stringUtf8 . show
-- TODO: it would be kinda neat if we could use pretty-show/hscolour for Show output -- TODO: it would be kinda neat if we could use pretty-show/hscolour for Show output