Changeset 7139 for src/Main.hs

Timestamp:

09/26/05 00:04:04 (3 years ago)

Author:

putter

Message:

src/Main.hs: pass backends all arguments, not just some. -I again works.

Files:

• src/Main.hs (modified) (1 diff)

src/Main.hs

@@ -84 +84 @@
 run ("-C":backend:file:_)                = slurpFile file >>= doCompileDump backend file
 
-run ("-B":backend:args) | (== map toLower backend) `any` ["js","perl5"] =
-    doHelperRun backend args
+run ("-B":backend:_) | (== map toLower backend) `any` ["js","perl5"] =
+    doHelperRun backend =<< getArgs
 run ("-B":backend:"-e":prog:_)           = doCompileRun backend "-e" prog
 run ("-B":backend:file:_)                = slurpFile file >>= doCompileRun backend file