{-# LANGUAGE OverloadedStrings #-} module HaskellWorks.Data.MQuery.Entry where import Prettyprinter data Entry k v = Entry k v instance (Pretty k, Pretty v) => Pretty (Entry k v) where pretty :: forall ann. Entry k v -> Doc ann pretty (Entry k k v v) = k -> Doc ann forall ann. k -> Doc ann forall a ann. Pretty a => a -> Doc ann pretty k k Doc ann -> Doc ann -> Doc ann forall a. Semigroup a => a -> a -> a <> Doc ann ": " Doc ann -> Doc ann -> Doc ann forall a. Semigroup a => a -> a -> a <> v -> Doc ann forall ann. v -> Doc ann forall a ann. Pretty a => a -> Doc ann pretty v v