Changeset 13496 for src/Pugs/Exp.hs

Timestamp:

09/20/06 14:11:05 (2 years ago)

Author:

audreyt

Message:

* formatQuite for Exp now dumps back into Perl 6 syntax (incomplete);

this enables Signature literals with defaults to prettyprinted
back correctly.

Files:

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

src/Pugs/Exp.hs

@@ -10 +10 @@
 import Text.PrettyPrint
 import Pugs.Internals
-import {-# SOURCE #-} qualified Pugs.AST.Internals (Exp)
 import Pugs.Val
+import qualified Pugs.AST.Internals (Exp)
 
 
@@ -39 +39 @@
 
 prettyExp :: Exp -> Doc
-prettyExp (EE e) = format (ee e)
+prettyExp (EE e) = formatQuite (ee e)
 prettyExp exp    = text (show exp)