1
1
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:
Rob Rix 2017-03-13 11:53:06 -04:00
parent d4b0633117
commit 48e5119679

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