From 9d4904f75997a3c33d92662c46aae95d318abaa6 Mon Sep 17 00:00:00 2001 From: Steffen Jost Date: Thu, 19 May 2022 17:10:52 +0200 Subject: [PATCH] chore(lms): minor fixes --- src/Handler/LMS/Result.hs | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) diff --git a/src/Handler/LMS/Result.hs b/src/Handler/LMS/Result.hs index 7810b3797..30d999565 100644 --- a/src/Handler/LMS/Result.hs +++ b/src/Handler/LMS/Result.hs @@ -259,9 +259,7 @@ postLmsResultUploadR sid qsh = do postLmsResultDirectR :: SchoolId -> QualificationShorthand -> Handler Html postLmsResultDirectR sid qsh = do - (params, files) <- runRequestBody - $logWarnS "LMS_1" $ tshow params - $logWarnS "LMS_2" $ tshow $ fst <$> files + (_params, files) <- runRequestBody (status, msg) <- case files of [(fhead,file)] -> do runDBJobs $ do