|
|
- module Main where
-
- import Lexer.Support
- import Lexer
- import Debug.Trace (traceM)
- import Control.Monad.RWS
-
- main :: IO ()
- main = do
- putStrLn "hello world"
-
- lexAll :: Lexer ()
- lexAll = do
- tok <- scan
- case tok of
- TkEOF -> pure ()
- x -> do
- traceM (show x)
- lexAll
|