mirror of
https://github.com/github/semantic.git
synced 2024-12-22 06:11:49 +03:00
Define a Show1 instance for EditGraph.
This commit is contained in:
parent
d4b0633117
commit
48e5119679
@ -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
|
||||
|
Loading…
Reference in New Issue
Block a user