[append any arguments set in JHCOPTS to command line
John Meacham <john@repetae.net>**20060426011349] hunk ./Main.hs 87
+
hunk ./Main.hs 90
-    as <- System.getArgs
+    as <- getArguments
hunk ./Main.hs 98
-        args <- System.getArgs
+        args <- getArguments
hunk ./Main.hs 702
-    args <- System.getArgs
+    args <- getArguments
hunk ./Options.hs 9
+    getArguments,
hunk ./Options.hs 166
+getArguments = do
+    x <- lookupEnv "JHCOPTS"
+    let eas = maybe [] words x
+    as <- System.getArgs
+    return (eas ++ as)
+
hunk ./Options.hs 175
-processOptions = System.getArgs >>= (\argv -> either putErrDie return $ do
+processOptions = getArguments >>= (\argv -> either putErrDie return $ do