1
1
mirror of https://github.com/github/semantic.git synced 2024-12-22 22:31:36 +03:00

Define a Show1 instance for Env.

This commit is contained in:
Rob Rix 2017-09-11 10:20:48 -04:00
parent 98cd5eb860
commit 6dc4cf310e

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