corpus

commit 6cc7ece69ae971a86ddcd29c04816801a3d25ff2
parent 92ffec13f93b0f4ac52fd89b3c474b005b7c29c3
Author: mtmn <miro@haravara.org>
Date:   Fri, 17 Apr 2026 23:06:44 +0200

fix: default database path to cwd

Diffstat:
M
src/Config.purs
 | 
5
+++--

1 file changed, 3 insertions(+), 2 deletions(-)
diff --git a/src/Config.purs b/src/Config.purs
@@ -13,7 +13,7 @@ import Effect (Effect)
 import Effect.Aff (Aff, makeAff, nonCanceler)
 import Effect.Class (liftEffect)
 import Effect.Exception (error)
-import Node.Process (lookupEnv)
+import Node.Process (cwd, lookupEnv)
 
 type UserConfig =
   { listenbrainzUser :: Maybe String
@@ -88,9 +88,10 @@ loadConfig path = do
   awsEndpointUrl <- liftEffect $ lookupEnv "AWS_ENDPOINT_URL"
   awsS3AddressingStyle <- liftEffect $ lookupEnv "AWS_S3_ADDRESSING_STYLE"
   databasePath <- liftEffect $ lookupEnv "DATABASE_PATH"
+  defaultPath <- liftEffect cwd
   let
     resolvePath file = case databasePath of
-      Nothing -> file
+      Nothing -> defaultPath <> "/" <> file
       Just dir -> dir <> "/" <> file
     fillCreds cfg = cfg
       { lastfmApiKey = lastfmApiKey