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

Browse Source
This commit is contained in:
Rob Rix 2017-09-11 10:20:48 -04:00
parent 98cd5eb860
commit 6dc4cf310e
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/Binding.hs
View File

@ -92,6 +92,9 @@ instance Show1 f => Show1 (BindingF f) where
instance (Show1 f, Show a) => Show (BindingF f a) where instance (Show1 f, Show a) => Show (BindingF f a) where
showsPrec = showsPrec1 showsPrec = showsPrec1
instance Show1 Env where
liftShowsPrec sp sl d (Env vs) = showsUnaryWith (const (liftShowList sp sl)) "Env" d vs
instance Pretty Metavar where instance Pretty Metavar where
pretty (Metavar v) = pretty v pretty (Metavar v) = pretty v