Changeset 20058 for src/Pugs/AST/Internals.hs
- Timestamp:
- 03/04/08 22:06:31 (9 months ago)
- Files:
-
- 1 modified
-
src/Pugs/AST/Internals.hs (modified) (1 diff)
Legend:
- Unmodified
- Added
- Removed
-
src/Pugs/AST/Internals.hs
r16627 r20058 2086 2086 instance YAML VRef where 2087 2087 asYAML (MkRef (ICode cv)) 2088 | Just mc<- fromTypeable cv = do2088 | Just (mc :: VMultiCode) <- fromTypeable cv = do 2089 2089 mcC <- asYAML (mc :: VMultiCode) 2090 2090 return $ mkTagNode (tagHs "VMultiCode") $ ESeq [mcC]
