Changeset 3910 for src/Pugs/Run/Args.hs

Show
Ignore:
Timestamp:
05/26/05 13:37:01 (4 years ago)
Author:
autrijus
svk:copy_cache_prev:
5482
Message:

* pugs -MFoo should mean use Foo not require Foo.

Files:
1 modified

Legend:

Unmodified
Added
Removed

  • src/Pugs/Run/Args.hs

    r3372 r3910  
    156156                                   isDashE (_) = False 
    157157 
    158 joinDashE ((Opt "-M" mod):args) = joinDashE ((Opt "-e" ("require " ++ mod ++ ";\n")):args) 
     158joinDashE ((Opt "-M" mod):args) = joinDashE ((Opt "-e" ("use " ++ mod ++ ";\n")):args) 
    159159 
    160160joinDashE ((Opt "-e" a):(Opt "-e" b):args) =