Javav-0.0.2: Main.hs

module Main where

import Language.Java.Javav
import System.Environment

main ::
  IO ()
main =
  do a <- getArgs
     if null a
        then mapM_ putStrLn $
                     [
                      "Prints the Java version of one or more class files"
                     , "Usage: javav <filename(s)>"
                     ] ++
                     ("  " ++) `fmap`
                       [
                        "Error conditions"
                       , alreadyInUseError ++ " File is in use"
                       , doesNotExistError ++ " File does not exist"
                       , permissionError ++ " File does not have read permission"
                       , unknownError ++ " An unknown error occurred"
                       ]
        else printv a