module Obs.Main

import Obs.Abstract
import Obs.Parser
import Obs.Syntax
import Obs.Term

import System

import Text.PrettyPrint.Prettyprinter
import Text.PrettyPrint.Prettyprinter.Render.Terminal

usage : IO ()
usage = do
  () <- putStrLn "usage: obs <file>"
  exitFailure

main : IO ()
main = do
  [_, file] <- getArgs
    | _ => usage
  defs <- parseFile file
  blk <- printErr $ abstractBlock defs
  putDoc $ pretty blk