main :: IO ()
main = do
  argv <- getArgs
  case argv of
    [path] -> uglyPrintHs path
    _      -> putStrLn "usage: pretty-ast <file.hs>"
main :: IO ()
main = do
  argv <- getArgs
  case argv of
    [path] -> uglyPrintHs path
    _      -> putStrLn "usage: pretty-ast <file.hs>"
main = do
  argv <- getArgs
  case argv of
    [path] -> uglyPrintHs path
    _      -> putStrLn "usage: pretty-ast <file.hs>"