18 lines
379 B
Haskell
18 lines
379 B
Haskell
{-# LANGUAGE PatternSynonyms #-}
|
|
{-# LANGUAGE ViewPatterns #-}
|
|
{-# LANGUAGE BlockArguments #-}
|
|
{-# LANGUAGE OverloadedLists #-}
|
|
module Main
|
|
(main)
|
|
where
|
|
|
|
import qualified Gyehoek.ANF.Syntax as ANF
|
|
import Gyehoek.QBE (render)
|
|
import qualified Data.Text.IO as TIO
|
|
import Prelude hiding ((.),id)
|
|
import Control.Category
|
|
|
|
|
|
main :: IO ()
|
|
main = TIO.putStrLn . render $ ANF.expr
|