module Main where

import System.Environment (getArgs)

import A.Builder


main :: IO ()
main = do
    args <- getArgs

    case args of
        [fn, "-o", out] -> buildFile fn out
        [fn] -> buildFile fn "."
        _ -> putStrLn . unlines $
            [ "usage:"
            , "a FILENAME\t\tbuild FILENAME, outputting documents to ."
            , "a FILENAME -o DIRNAME\tbuild FILENAME, outputting documents to DIRNAME"
            ]