16 lines
375 B
Haskell
16 lines
375 B
Haskell
{-# LANGUAGE OverloadedStrings #-}
|
|
|
|
module Main where
|
|
|
|
import Data.Attoparsec.Text (parseOnly)
|
|
import qualified Data.Text.IO as T
|
|
|
|
import INAST
|
|
|
|
main :: IO ()
|
|
main = do
|
|
inputNetwork <- T.readFile "./input.network"
|
|
T.putStrLn "Using the following input network:"
|
|
T.putStrLn inputNetwork
|
|
T.putStrLn "Parsed AST:"
|
|
print (parseOnly insuranceNetworkParser inputNetwork)
|