module Main where

import qualified Parser
import qualified Text.Parsec as Parsec

main :: IO ()
main = do
  c <- getContents
  putStrLn $ show $ Parsec.parse Parser.cueSheet "stdin" c

module Main where

import qualified Parser
import qualified Text.Parsec as Parsec
import System.Exit

main :: IO ()
main = do
  c <- getContents
  case Parsec.parse Parser.cueSheet "stdin" c of
    (Left e) -> putStrLn ("Error while parsing:\n" ++ show e) >> exitFailure
    (Right r) -> putStrLn $ show r ++ "--- END ---"

Update main to print a parseable output
Update main to print a parseable output
