From cceb60074fbb26d7ed2d10a1c37297fa6e52292a Mon Sep 17 00:00:00 2001
From: Steffen Jost <jost@tcs.ifi.lmu.de>
Date: Wed, 14 Sep 2022 17:20:07 +0200
Subject: [PATCH] fix(lms): trigger userlist job after upload

---
 src/Handler/LMS/Userlist.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/Handler/LMS/Userlist.hs b/src/Handler/LMS/Userlist.hs
index 25d57e3ed..ab904ba52 100644
--- a/src/Handler/LMS/Userlist.hs
+++ b/src/Handler/LMS/Userlist.hs
@@ -271,7 +271,7 @@ postLmsUserlistDirectR sid qsh = do
           Right nr -> do
             let msg = "Success. LMS Userlist upload file " <> fileName file <> " containing " <> tshow nr <> " rows for header " <> fhead
             $logWarnS "LMS" msg -- TODO: change to Info Level in the future
-            queueDBJob $ JobLmsResults qid
+            queueDBJob $ JobLmsUserlist qid
             return (ok200, msg)
     []     -> do
       let msg = "Userlist upload file missing."