Javasf-0.0.1: Main.hs

module Main where

import Language.Java.Javasf
import System.Environment

main ::
  IO ()
main =
  do a <- getArgs
     if null a
        then mapM_ putStrLn
                     [
                       "<javasf> Copyright 2010 Tony Morris"
                     , "This software is made available under a BSD3 open source license"
                     , []
                     , "Prints the SourceFile attribute of one or more Java class files."
                     , []
                     , "javasf FILE1 [FILE2...]"
                     ]
        else javasf a