From f88d78d60bad406ce775d29ec5891d8c46974119 Mon Sep 17 00:00:00 2001
From: Einhard Leichtfuß <alguien@respiranto.de>
Date: Wed, 21 May 2025 11:51:00 +0200
Subject: Rename auxiliary parser modules

---
 src/Language/SimpleShell/Parser.hs | 40 --------------------------------------
 1 file changed, 40 deletions(-)
 delete mode 100644 src/Language/SimpleShell/Parser.hs

(limited to 'src/Language/SimpleShell/Parser.hs')

diff --git a/src/Language/SimpleShell/Parser.hs b/src/Language/SimpleShell/Parser.hs
deleted file mode 100644
index 5f536ed..0000000
--- a/src/Language/SimpleShell/Parser.hs
+++ /dev/null
@@ -1,40 +0,0 @@
-{-# LANGUAGE OverloadedStrings #-}
-{-# LANGUAGE FlexibleContexts #-}
-
-module Language.SimpleShell.Parser
-  ( lexeme
-  , symbol
-  , commentFirstChars
-  )
-where
-
-
-import Control.Monad (void)
-import Data.Text (Text)
-import Text.Megaparsec (MonadParsec)
-import Text.Megaparsec.Char (space1)
-import qualified Text.Megaparsec.Char.Lexer as L
-  ( lexeme
-  , symbol
-  , space
-  , skipLineComment
-  , skipBlockComment
-  )
-
-
--- Must be kept in sync with 'commentFirstChars'.
-sc :: (MonadParsec e Text m) => m ()
-sc = L.space
-  space1
-  (L.skipLineComment "//")
-  (L.skipBlockComment "/*" "*/")
-
--- | List of all characters that may start a comment.
-commentFirstChars :: [Char]
-commentFirstChars = "/"
-
-lexeme :: (MonadParsec e Text m) => m a -> m a
-lexeme = L.lexeme sc
-
-symbol :: (MonadParsec e Text m) => Text -> m ()
-symbol = void . L.symbol sc
-- 
cgit v1.2.3