mirror of
https://github.com/rodrigosetti/master-plan.git
synced 2024-11-22 22:05:29 +03:00
13 lines
344 B
Haskell
13 lines
344 B
Haskell
{-# 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
|