Initial JS runtime and Arborix Implementation

src/ContentStore.hs

@@ -9,6 +9,7 @@ import Data.Maybe                     (catMaybes, fromMaybe)
 import Data.Text                      (Text)
 import Database.SQLite.Simple
 import System.Directory               (createDirectoryIfMissing, getXdgDirectory, XdgDirectory(..))
+import System.Environment             (getEnv, lookupEnv)
 import System.FilePath                ((</>), takeDirectory)
 
 import qualified Data.Map             as Map
@@ -71,8 +72,12 @@ newContentStore = do
 
 getContentStorePath :: IO FilePath
 getContentStorePath = do
-  dataDir <- getXdgDirectory XdgData "tricu"
-  return $ dataDir </> "content-store.db"
+  maybeLocalPath <- lookupEnv "TRICU_DB_PATH"
+  case maybeLocalPath of
+    Just p -> return p
+    Nothing -> do
+      dataDir <- getXdgDirectory XdgData "tricu"
+      return $ dataDir </> "content-store.db"