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/Syntax/LexiconFile.hs | |
| parent | bc2ea0a384548aab50991c4de365f1afbad9a284 (diff) | |
Sketch noun coord, symbols for reals
Diffstat (limited to 'source/Syntax/LexiconFile.hs')
| -rw-r--r-- | source/Syntax/LexiconFile.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/source/Syntax/LexiconFile.hs b/source/Syntax/LexiconFile.hs index be70a6b..b700621 100644 --- a/source/Syntax/LexiconFile.hs +++ b/source/Syntax/LexiconFile.hs @@ -12,14 +12,14 @@ import Text.Earley.Mixfix (Holey) import Text.Megaparsec hiding (Token, Label, label) import Text.Megaparsec.Char qualified as Char import UnliftIO.Directory - +import System.FilePath type LexiconFileParser = Parsec Void Text parseLexiconFile :: IO [ScannedLexicalItem] parseLexiconFile = do currentDir <- getCurrentDirectory - let csvPath = (currentDir <> "lexicon.csv") + let csvPath = (currentDir </> "library" </> "lexicon.csv") csv <- Text.readFile csvPath case runParser lexiconFile csvPath csv of Left err -> fail (errorBundlePretty err) |