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

Define a Show1 instance for EditGraph.

Browse Source
This commit is contained in:
Rob Rix 2017-03-13 11:53:06 -04:00
parent d4b0633117
commit 48e5119679
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
src/SES/Myers.hs
View File

@ -249,3 +249,6 @@ instance Show s => Show1 (State s) where
instance Show s => Show (State s a) where
showsPrec = liftShowsPrec2 showsPrec showList (const (const identity)) (const identity)
instance Show1 EditGraph where
liftShowsPrec sp sl d (EditGraph as bs) = showsBinaryWith (liftShowsVector sp sl) (liftShowsVector sp sl) "EditGraph" d as bs