uglyPrintHs :: String -> IO ()
uglyPrintHs path = do
  result <- parseFileWithMode myParseMode path
  case result of
    ParseOk ast            -> putStrLn $ show ast
    ParseFailed srcLoc err -> putStrLn $ show err
uglyPrintHs :: String -> IO ()
uglyPrintHs path = do
  result <- parseFileWithMode myParseMode path
  case result of
    ParseOk ast            -> putStrLn $ show ast
    ParseFailed srcLoc err -> putStrLn $ show err
uglyPrintHs path = do
  result <- parseFileWithMode myParseMode path
  case result of
    ParseOk ast            -> putStrLn $ show ast
    ParseFailed srcLoc err -> putStrLn $ show err