module HaskellWorks.Data.MQuery.Entry where

import Text.PrettyPrint.ANSI.Leijen

data Entry k v = Entry k v

instance (Pretty k, Pretty v) => Pretty (Entry k v) where
  pretty :: Entry k v -> Doc
pretty (Entry k
k v
v) = k -> Doc
forall a. Pretty a => a -> Doc
pretty k
k Doc -> Doc -> Doc
forall a. Semigroup a => a -> a -> a
<> String -> Doc
text String
": " Doc -> Doc -> Doc
forall a. Semigroup a => a -> a -> a
<> v -> Doc
forall a. Pretty a => a -> Doc
pretty v
v