github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2025-01-03 04:51:57 +03:00
Code Issues Projects Releases Wiki Activity

Define a Pretty1 instance for Join.

Browse Source
This commit is contained in:
Rob Rix 2017-09-10 19:36:22 +01:00
parent 13c0b6d496
commit 1ccff72b08
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/Data/Functor/Both.hs
View File

@ -13,6 +13,7 @@ module Data.Functor.Both
import Data.Bifunctor.Join as X
import Data.Functor.Classes
import Data.Semigroup
import Data.Text.Prettyprint.Doc as Pretty
import Prelude hiding (fst, snd)
import qualified Prelude
import Text.Show
@ -55,3 +56,6 @@ instance Eq2 p => Eq1 (Join p) where
instance Show2 p => Show1 (Join p) where
liftShowsPrec sp sl d = showsUnaryWith (liftShowsPrec2 sp sl sp sl) "Join" d . runJoin
instance Pretty2 p => Pretty1 (Join p) where
liftPretty p pl = liftPretty2 p pl p pl . runJoin