feat(haskell): CLI rewrite

src/FileEval.hs

@@ -2,21 +2,22 @@ module FileEval
   ( preprocessFile
   , evaluateFile
   , evaluateFileWithContext
+  , evaluateFileWithStore
   , evaluateFileResult
   , compileFile
   ) where
 
-import Eval (evalTricu)
+import Eval (evalTricu, evalTricuWithStore)
 import Lexer
 import Parser
 import Research
-import ContentStore (initContentStore, storeTerm, hashTerm)
+import ContentStore (newContentStore, storeTerm, hashTerm)
+import Database.SQLite.Simple (Connection)
 import Wire (exportNamedBundle, defaultExportNames)
 
 import Control.Monad   (forM_)
 import Data.List       (partition)
 import Data.Maybe      (mapMaybe)
-import System.Environment (setEnv)
 import System.FilePath (takeDirectory, normalise, (</>))
 import System.Exit (die)
 import Database.SQLite.Simple (close)
@@ -79,6 +80,18 @@ evaluateFileWithContext env filePath = do
       ast <- preprocessFile filePath
       pure $ evalTricu env ast
 
+-- | File evaluation that lazily resolves missing names from the
+--   content store instead of pre-loading the entire store into memory.
+evaluateFileWithStore :: Maybe Connection -> Env -> FilePath -> IO Env
+evaluateFileWithStore mconn env filePath = do
+  contents <- readFile filePath
+  let tokens = lexTricu contents
+  case parseProgram tokens of
+    Left err -> errorWithoutStackTrace (handleParseError err)
+    Right _ast -> do
+      ast <- preprocessFile filePath
+      evalTricuWithStore mconn env ast
+
 preprocessFile :: FilePath -> IO [TricuAST]
 preprocessFile p = preprocessFile' Set.empty p p
 
@@ -181,9 +194,8 @@ compileFile inputPath outputPath maybeNames = do
                 $ map (\(n,t) -> (T.pack n, t)) compiledTerms
       compiledNames :: [T.Text] = Map.keys compiledMap
       compiledTermsList :: [T] = Map.elems compiledMap
-  -- Create a temp content store
-  setEnv "TRICU_DB_PATH" "/tmp/tricu-compile.db"
-  conn <- initContentStore
+  -- Create a temp in-memory content store
+  conn <- newContentStore
   -- Store each term in the temp store under its requested name
   forM_ (zip compiledNames compiledTermsList) $ \(n, t) ->
     storeTerm conn [T.unpack n] t