diff options
| author | Mirek Kratochvil <exa.exa@gmail.com> | 2022-11-26 13:35:19 +0100 |
|---|---|---|
| committer | Mirek Kratochvil <exa.exa@gmail.com> | 2022-11-26 13:35:19 +0100 |
| commit | a26f0f29c02bfb4ec56781397d60abeb498b8c12 (patch) | |
| tree | 9c351e8d2283a8b2564ea770ca0d42d2c4d30701 /app/Parser.hs | |
| parent | 58367975aed706172487727330670d62fcb0e6d1 (diff) | |
| download | prlg-a26f0f29c02bfb4ec56781397d60abeb498b8c12.tar.gz prlg-a26f0f29c02bfb4ec56781397d60abeb498b8c12.tar.bz2 | |
massive cleanup
Diffstat (limited to 'app/Parser.hs')
| -rw-r--r-- | app/Parser.hs | 32 |
1 files changed, 29 insertions, 3 deletions
diff --git a/app/Parser.hs b/app/Parser.hs index e710b75..a9e4473 100644 --- a/app/Parser.hs +++ b/app/Parser.hs @@ -8,14 +8,40 @@ module Parser import Control.Monad (void) import Data.Char + ( isAlpha + , isAlphaNum + , isMark + , isNumber + , isPunctuation + , isSpace + , isSymbol + ) import Data.List.NonEmpty (NonEmpty(..)) import Data.List.Split (splitOn) -import Data.Void +import Data.Void (Void) import Text.Megaparsec -import Text.Megaparsec.Char + ( Parsec + , PosState(..) + , SourcePos(..) + , TraversableStream(..) + , VisualStream(..) + , (<|>) + , choice + , eof + , many + , mkPos + , notFollowedBy + , oneOf + , satisfy + , single + , some + , try + , unPos + ) +import Text.Megaparsec.Char (string) import IR (PrlgStr(..)) -import Operators +import Operators (ArgKind(..), Fixity(..), Op(..), Ops) singleToks = ",;|()[]" |
