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 Join.

Browse Source
This commit is contained in:
Rob Rix 2017-09-10 19:34:49 +01:00
parent bb11787db9
commit 13c0b6d496
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/Data/Functor/Both.hs
View File

@ -52,3 +52,6 @@ liftShowListBoth sp sl = showListWith (liftShowsPrecBoth sp sl 0)
instance Eq2 p => Eq1 (Join p) where
liftEq eq (Join a1) (Join a2) = liftEq2 eq eq a1 a2
instance Show2 p => Show1 (Join p) where
liftShowsPrec sp sl d = showsUnaryWith (liftShowsPrec2 sp sl sp sl) "Join" d . runJoin