1 2 3 4 5 6 7 8 9 10 11 12
module Main (main) where import Parser (parse) import System.IO (hPutStrLn, stderr) main :: IO () main = do x <- getContents case parse x of Left e -> hPutStrLn stderr $ "Failed with: " ++ e Right t -> print t