corpus

commit 6c03e49dfaebd004ea832be7f65709e847a37251
parent 49d3f45d5c313c33d89e24ff58412b5348b13e9a
Author: mtmn <miro@haravara.org>
Date:   Sat, 25 Apr 2026 18:01:46 +0200

fix: add user management recipes, exit properly

Diffstat:
M
justfile
 | 
12
++++++++++++
M
src/Command.purs
 | 
12
+++++++-----

2 files changed, 19 insertions(+), 5 deletions(-)
diff --git a/justfile b/justfile
@@ -50,6 +50,18 @@ nix command:
         exit 1; \
     fi
 
+# Add a new user (--slug and --db required; --name, --listenbrainz-user, --lastfm-user optional)
+add-user *args:
+    node server.js add-user {{args}}
+
+# Reset the API token for a user (--slug required)
+reset-token *args:
+    node server.js reset-token {{args}}
+
+# List all users
+list-users:
+    node server.js list-users
+
 # Run quality and security checks
 check:
     npx whine
diff --git a/src/Command.purs b/src/Command.purs
@@ -77,11 +77,13 @@ printUsage = liftEffect do
   exit' 1
 
 run :: String -> Array String -> Aff Unit
-run configFile args = case Array.uncons args of
-  Just { head: "add-user", tail: rest } -> addUser configFile rest
-  Just { head: "reset-token", tail: rest } -> resetToken configFile rest
-  Just { head: "list-users" } -> listUsers configFile
-  _ -> printUsage
+run configFile args = do
+  case Array.uncons args of
+    Just { head: "add-user", tail: rest } -> addUser configFile rest
+    Just { head: "reset-token", tail: rest } -> resetToken configFile rest
+    Just { head: "list-users" } -> listUsers configFile
+    _ -> printUsage
+  liftEffect $ exit' 0
 
 addUser :: String -> Array String -> Aff Unit
 addUser configFile args = do