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