Rename parseTest' to parseTest

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)