Pretty.hs

module Data.HttpSpec.Pretty (Pretty(..)) where

----------------------------------------
-- SITE-PACKAGES
----------------------------------------
import Text.PrettyPrint.HughesPJ (Doc, text)

class Pretty a where
    ppr :: a -> Doc
    ppr = text . pprString
    pprString :: a -> String
    pprString = show . ppr