diff options
| author | Simon-Kor <52245124+Simon-Kor@users.noreply.github.com> | 2024-05-07 18:08:34 +0200 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2024-05-07 18:08:34 +0200 |
| commit | fcaffbf3cb44e804fe6df25b32f09d33e1afbabb (patch) | |
| tree | cf00f0039e78882353706553100398b24fd32f39 /source/Api.hs | |
| parent | 08019dcdaf3b13bb8ce554dfd5377690bb508c6d (diff) | |
| parent | b2f9f7900ccb4a569ed23e9ecf327564dbba2b7d (diff) | |
Merge branch 'adelon:main' into main
Diffstat (limited to 'source/Api.hs')
| -rw-r--r-- | source/Api.hs | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/source/Api.hs b/source/Api.hs index ac277f5..9dfa0e1 100644 --- a/source/Api.hs +++ b/source/Api.hs @@ -36,21 +36,22 @@ import Base import Checking import Checking.Cache import Encoding +import Filter(filterTask) import Meaning (meaning, GlossError(..)) +import Megalodon qualified import Provers import Syntax.Abstract qualified as Raw import Syntax.Adapt (adaptChunks, scanChunk, ScannedLexicalItem) +import Syntax.Chunk import Syntax.Concrete import Syntax.Import -import Syntax.Chunk import Syntax.Internal qualified as Internal import Syntax.Lexicon (Lexicon, builtins) +import Syntax.LexiconFile import Syntax.Token import TheoryGraph (TheoryGraph, Precedes(..)) import TheoryGraph qualified import Tptp.UnsortedFirstOrder qualified as Tptp -import Filter(filterTask) -import Megalodon qualified import Control.Monad.Logger import Data.List (intercalate) @@ -120,6 +121,8 @@ scan :: MonadIO io => FilePath -> io [ScannedLexicalItem] scan input = do tokenStream <- tokenize input let chunks = chunkify (unTokStream tokenStream) + -- TODO items <- liftIO parseLexiconFile + --pure ((concatMap scanChunk chunks) <> items) pure (concatMap scanChunk chunks) |
