Changeset 13494 for src/Pugs/Exp.hs

Timestamp:

09/20/06 13:29:34 (2 years ago)

Author:

audreyt

Message:

* Prettyprinting for signature default expressions.

(Doesn't prettyprint back to Perl6 yet.)

Files:

• src/Pugs/Exp.hs (modified) (2 diffs)

src/Pugs/Exp.hs

@@ -7 +7 @@
 module Pugs.Exp where
 
+import Pugs.Pretty
+import Text.PrettyPrint
 import Pugs.Internals
 import {-# SOURCE #-} qualified Pugs.AST.Internals (Exp)
@@ -35 +37 @@
     | EE ExpEmeritus
     deriving (Show, Eq, Ord, Typeable) {-!derive: YAML_Pos, Perl6Class, MooseClass!-}
+
+prettyExp :: Exp -> Doc
+prettyExp (EE e) = format (ee e)
+prettyExp exp    = text (show exp)