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