Changeset 15297 for src/Pugs/CodeGen.hs

Show
Ignore:
Timestamp:
02/18/07 15:59:02 (21 months ago)
Author:
audreyt
Message:

* Revert the previous patch; everything back to normal.

Files:
1 modified

Legend:

Unmodified
Added
Removed

  • src/Pugs/CodeGen.hs

    r15296 r15297  
    4343    , ("Parse-YAML",  genParseYAML) 
    4444    , ("Parse-HsYAML",genParseHsYAML) 
    45     , ("Parse-Pretty",fmap (_VStr . (++"\n") . pretty) (asks envBody)) 
     45    , ("Parse-Pretty",fmap (VStr . (++"\n") . pretty) (asks envBody)) 
    4646--  , ("XML",         genXML) 
    4747    ] 
    … …  
    9191    rv <- runEvalIO env gen 
    9292    case rv of 
    93         VStr str    -> return (cast str) 
     93        VStr str    -> return str 
    9494        _           -> fail (show rv)