From cfb2f44ef931201bb152133b8a4f79fcd51e25b4 Mon Sep 17 00:00:00 2001 From: Einhard Leichtfuß Date: Mon, 19 May 2025 02:16:47 +0200 Subject: Rename parseTest' to parseTest --- src/Language/SimpleShell/Parser.hs | 9 +++++---- 1 file 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) -- cgit v1.2.3