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

Define GShow1 lifted over compositions.

Browse Source
This commit is contained in:
Rob Rix 2017-04-06 11:52:08 -04:00
parent 4fe7be91c5
commit c62bbc17b1
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/Classes/Show/Generic.hs
View File

@ -61,3 +61,6 @@ instance (GShow1 f, GShow1 g) => GShow1 (f :+: g) where
instance (GShow1 f, GShow1 g) => GShow1 (f :*: g) where
gliftShowsPrec sp sl d (a :*: b) = gliftShowsPrec sp sl d a . showChar ' ' . gliftShowsPrec sp sl d b
instance (Show1 f, GShow1 g) => GShow1 (f :.: g) where
gliftShowsPrec sp sl d (Comp1 a) = liftShowsPrec (gliftShowsPrec sp sl) (gliftShowList sp sl) d a