challenge-165/alexander-pankoff/haskell/ch-1.hs


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19

{-# LANGUAGE DeriveFunctor #-}

module Main where

import Data.Char (ord)
import Plot
import System.Exit (exitFailure)
import System.IO (hPutStrLn, stderr)

main :: IO ()
main = do
  inputLines <- lines <$> getContents
  either
    (\err -> putErrLn (show err) >> exitFailure)
    (putStr . toXML)
    (parsePlot inputLines)

putErrLn :: String -> IO ()
putErrLn = hPutStrLn stderr