1 2 3 4 5 6 7 8 9
module Language.Virgil.Pretty where import Data.Monoid ((<>)) import Text.PrettyPrint.HughesPJ.Class import Language.Virgil.AST instance Pretty ChValue where pPrint (ChObject obj) = braces $ text "..." pPrint