Changeset 3910

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:

• src/Pugs/Run/Args.hs (modified) (1 diff)

src/Pugs/Run/Args.hs

@@ -156 +156 @@
                                    isDashE (_) = False
 
-joinDashE ((Opt "-M" mod):args) = joinDashE ((Opt "-e" ("require " ++ mod ++ ";\n")):args)
+joinDashE ((Opt "-M" mod):args) = joinDashE ((Opt "-e" ("use " ++ mod ++ ";\n")):args)
 
 joinDashE ((Opt "-e" a):(Opt "-e" b):args) =