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

Define a Show instance for DiffF.

Browse Source
This commit is contained in:
Rob Rix 2017-09-09 12:31:04 +01:00
parent e68d46081c
commit f65fb137fa
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/Diff.hs
View File

@ -108,3 +108,6 @@ instance Show1 f => Show2 (DiffF f) where
instance (Show1 f, Show a) => Show1 (DiffF f a) where instance (Show1 f, Show a) => Show1 (DiffF f a) where
liftShowsPrec = liftShowsPrec2 showsPrec showList liftShowsPrec = liftShowsPrec2 showsPrec showList
instance (Show1 f, Show a, Show b) => Show (DiffF f a b) where
showsPrec = showsPrec1