diff options
| author | adelon <22380201+adelon@users.noreply.github.com> | 2024-05-07 18:07:23 +0200 |
|---|---|---|
| committer | adelon <22380201+adelon@users.noreply.github.com> | 2024-05-07 18:07:23 +0200 |
| commit | b2f9f7900ccb4a569ed23e9ecf327564dbba2b7d (patch) | |
| tree | ac781463be5cf38ed785cd22339a291ccf7cdec8 /source/Api.hs | |
| parent | bc2ea0a384548aab50991c4de365f1afbad9a284 (diff) | |
Sketch noun coord, symbols for reals
Diffstat (limited to 'source/Api.hs')
| -rw-r--r-- | source/Api.hs | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/source/Api.hs b/source/Api.hs index a8f6148..9dfa0e1 100644 --- a/source/Api.hs +++ b/source/Api.hs @@ -121,8 +121,9 @@ scan :: MonadIO io => FilePath -> io [ScannedLexicalItem] scan input = do tokenStream <- tokenize input let chunks = chunkify (unTokStream tokenStream) - items <- liftIO parseLexiconFile - pure ((concatMap scanChunk chunks) <> items) + -- TODO items <- liftIO parseLexiconFile + --pure ((concatMap scanChunk chunks) <> items) + pure (concatMap scanChunk chunks) -- | Parse a file. Throws a 'ParseException' when tokenizing, scanning, or |