module Main where
import Control.Monad
import System.Environment
import Language.C
import Language.C.System.GCC
main = do
    input <- getArgs >>= \args ->
                case args of
                    [f] -> return f
                    _ ->   error "Usage: ./Test.hs c-file"
    ast <- parseCFile (newGCC "gcc") Nothing [] input
    case ast of
        Left err  -> error (show err)
        Right ast -> print (pretty ast)