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 pretty instance for BindingF.

Browse Source
This commit is contained in:
Rob Rix 2017-09-10 21:53:14 -04:00
parent 8a41498ffd
commit 9a5711cb41
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

@ -52,6 +52,9 @@ instance Pretty1 f => Pretty1 (BindingF f) where
where prettyKV (var, val) = pretty var <+> pretty '=' <+> p val
liftPretty _ _ (VarF metavar) = pretty metavar
instance (Pretty1 f, Pretty a) => Pretty (BindingF f a) where
pretty = liftPretty pretty prettyList
instance ToJSONFields1 f => ToJSONFields1 (BindingF f) where
toJSONFields1 (Let vars body) = [ "vars" .= vars ] <> toJSONFields1 body