# use `cpphs'
GHC_CPP := -cpp -pgmP cpphs -optP --cpp
-GHC_OPT = -I. -O0 -Wall -fno-warn-unused-do-bind
+GHC_OPT = -I. -O0 -Wall -fno-warn-unused-do-bind -fwarn-tabs
# see *.gdb target. also useful for profiling (-p at call)
GHC_OPT += -rtsopts # -prof -auto-all
GHC_OPT += $(GHC_CPP)
case res of
Nothing -> error "JAR: no MainClass entry found. Try to pass the jar file via -cp instead."
Just mc -> do
- let bclspath = B.pack $ map (fromIntegral . ord) mc
+ let bclspath = B.pack . map (fromIntegral . ord) $ mc
cls <- getClassFile bclspath
executeMain bclspath cls
+
parseArgs ("-cp":cps) cpset = parseArgs ("-classpath":cps) cpset
parseArgs ("-classpath":cps:xs) False = do
- let paths = splitOn ":" cps
- mapM_ addStuff paths
+ mapM_ addStuff $ splitOn ":" cps
parseArgs xs True
where
addStuff :: String -> IO ()
-- first argument which isn't prefixed by '-' should be a class file
parseArgs (clspath:_) stdcp = do
unless stdcp $ addClassPath "./"
- let bclspath = B.pack $ map (fromIntegral . ord) clspath
+ let bclspath = B.pack . map (fromIntegral . ord) $ clspath
cls <- getClassFile bclspath
executeMain bclspath cls
parseArgs _ _ = parseArgs ["-"] False