20 lines
460 B
Haskell
20 lines
460 B
Haskell
{-# LANGUAGE OverloadedStrings #-}
|
|
module RlpDriver
|
|
( driver
|
|
)
|
|
where
|
|
--------------------------------------------------------------------------------
|
|
import Compiler.RLPC
|
|
import Control.Monad
|
|
|
|
import Rlp.Lex
|
|
import Rlp.Parse
|
|
import Rlp2Core
|
|
import GM
|
|
--------------------------------------------------------------------------------
|
|
|
|
driver :: RLPCIO ()
|
|
driver = forFiles_ $ \f ->
|
|
withSource f (parseRlpProgR >=> desugarRlpProgR >=> evalProgR)
|
|
|