2025-01-02 10:54:15 +01:00
|
|
|
module Ubc.Parse
|
2025-01-17 21:13:00 +01:00
|
|
|
( parseScript )
|
2024-12-30 08:44:51 +01:00
|
|
|
where
|
|
|
|
|
|
2025-01-17 21:13:00 +01:00
|
|
|
import Text.Parsec ( runPT, ParseError, SourceName, ParsecT )
|
|
|
|
|
|
|
|
|
|
|
2025-01-20 19:53:28 +01:00
|
|
|
import qualified Ubc.Parse.Syntax.ParserState as ParserState
|
|
|
|
|
import qualified Ubc.Parse.Syntax.Config as Config
|
2025-01-17 21:13:00 +01:00
|
|
|
|
|
|
|
|
parseScript :: Monad m => SourceName -> String -> m (Either ParseError ())
|
|
|
|
|
parseScript = runPT topLevelParser (ParserState.initialState Config.defaultConfig)
|
|
|
|
|
|
|
|
|
|
topLevelParser :: ParsecT s u m ()
|
|
|
|
|
topLevelParser = return ()
|
