summaryrefslogtreecommitdiff
path: root/source/Api.hs
diff options
context:
space:
mode:
authorSimon-Kor <52245124+Simon-Kor@users.noreply.github.com>2024-05-07 18:08:34 +0200
committerGitHub <noreply@github.com>2024-05-07 18:08:34 +0200
commitfcaffbf3cb44e804fe6df25b32f09d33e1afbabb (patch)
treecf00f0039e78882353706553100398b24fd32f39 /source/Api.hs
parent08019dcdaf3b13bb8ce554dfd5377690bb508c6d (diff)
parentb2f9f7900ccb4a569ed23e9ecf327564dbba2b7d (diff)
Merge branch 'adelon:main' into main
Diffstat (limited to 'source/Api.hs')
-rw-r--r--source/Api.hs9
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)