From 41a90dc6bf1cb9255d72a6d8efffa1ad68f94988 Mon Sep 17 00:00:00 2001 From: VegOwOtenks Date: Sun, 16 Feb 2025 22:19:14 +0100 Subject: [PATCH] Import parsing --- src/Ubc/Parse/Syntax/Import.hs | 21 +++++++++++++++++++++ 1 file changed, 21 insertions(+) create mode 100644 src/Ubc/Parse/Syntax/Import.hs diff --git a/src/Ubc/Parse/Syntax/Import.hs b/src/Ubc/Parse/Syntax/Import.hs new file mode 100644 index 0000000..f603946 --- /dev/null +++ b/src/Ubc/Parse/Syntax/Import.hs @@ -0,0 +1,21 @@ +module Ubc.Parse.Syntax.Import +( +parse) +where + +import Data.Functor ((<&>)) + +import Text.Parsec (sepBy1, ParsecT) + +import qualified Data.List as List + +import qualified Ubc.Parse.Syntax.Language as UbcLanguage + +importPath :: Monad m => ParsecT String u m [String] +importPath = UbcLanguage.identifier `sepBy1` UbcLanguage.symbol "/" + +parse :: Monad m => ParsecT String u m [String] +parse = do + UbcLanguage.reserved "import" + importPath +