github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-12-11 08:45:48 +03:00
Code Issues Projects Releases Wiki Activity

Drop the inj prefix from Union’s Show1 instance.

Browse Source
This commit is contained in:
Rob Rix 2017-05-31 15:37:45 -04:00
parent fd8c5eacdc
commit 00b659b564
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/Data/Functor/Union.hs
View File

@ -111,7 +111,7 @@ instance Eq1 (Union '[]) where
liftEq _ _ _ = False -- We can never get here anyway.
instance (Show1 f, Show1 (Union fs)) => Show1 (Union (f ': fs)) where
liftShowsPrec sp sl d (Here f) = showsUnaryWith (liftShowsPrec sp sl) "inj" d f
liftShowsPrec sp sl d (Here f) = liftShowsPrec sp sl d f
liftShowsPrec sp sl d (There f) = liftShowsPrec sp sl d f
instance Show1 (Union '[]) where