Changeset 4908

Show
Ignore:
Timestamp:
06/22/05 04:54:48 (4 years ago)
Author:
autrijus
svk:copy_cache_prev:
6641
Message:

* remove debug messages

Files:
1 modified

Legend:

Unmodified
Added
Removed

  • src/Pugs/Compile/PIR.hs

    r4907 r4908  
    182182instance Compile (SubName, VCode) [PIL Decl] where 
    183183    compile (name, vsub) | packageOf name /= packageOf (subName vsub) = do 
    184         -- This is an export!  Huzzah Buzzah! 
    185         warn "export" (name, subName vsub) 
    186184        let storeC  = PBind [PVar $ qualify name] (PExp . PVar . qualify $ subName vsub) 
    187185            bodyC   = PStmts (PStmt . PExp $ storeC) PNil