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
