{-# 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