diff options
Diffstat (limited to 'src/Language/SimpleShell')
| -rw-r--r-- | src/Language/SimpleShell/Parser.hs | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/src/Language/SimpleShell/Parser.hs b/src/Language/SimpleShell/Parser.hs index be78beb..fdbeaf9 100644 --- a/src/Language/SimpleShell/Parser.hs +++ b/src/Language/SimpleShell/Parser.hs @@ -3,7 +3,7 @@ module Language.SimpleShell.Parser , lookupVar , lookupFun , initContext - , parseTest' + , parseTest ) where @@ -16,7 +16,8 @@ import Data.Map (Map) import qualified Data.Map as Map (empty, lookup) import Data.Text (Text, unpack) import Data.Void (Void) -import Text.Megaparsec +import Text.Megaparsec (Parsec) +import qualified Text.Megaparsec as MP (parseTest) type Parser = ReaderT Context (Parsec Void Text) @@ -48,5 +49,5 @@ lookupFun fname = do Nothing -> fail $ "Undefined function " ++ unpack fname -parseTest' :: Show a => Parser a -> Text -> IO () -parseTest' p = parseTest (runReaderT p initContext) +parseTest :: Show a => Parser a -> Text -> IO () +parseTest p = MP.parseTest (runReaderT p initContext) |