master-plan/app/Main.hs

{-# LANGUAGE UnicodeSyntax #-}
module Main where

import           MasterPlan.Backend.Identity
import           MasterPlan.Parser

main ∷ IO ()
main = do let filename = "master.plan"
          contents <- readFile filename
          case runParser filename contents of
            Left e  -> putStr e
            Right v -> putStr $ render v
parser and identity backend Wrote a parser and a backend that spits out parseable input 2017-08-06 07:15:47 +03:00			`{-# LANGUAGE UnicodeSyntax #-}`
initial commit 2017-08-05 04:53:52 +03:00			`module Main where`

parser and identity backend Wrote a parser and a backend that spits out parseable input 2017-08-06 07:15:47 +03:00			`import MasterPlan.Backend.Identity`
			`import MasterPlan.Parser`

			`main ∷ IO ()`
			`main = do let filename = "master.plan"`
			`contents <- readFile filename`
			`case runParser filename contents of`
			`Left e -> putStr e`
			`Right v -> putStr $ render v`