fraport/fradrive-old
Archived
3
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

chore(lms): minor fixes

Browse Source
This commit is contained in:
Steffen Jost 2022-05-19 17:10:52 +02:00
parent 129b9c52b0
commit 9d4904f759
1 changed files with 1 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/Handler/LMS/Result.hs
View File

@ -259,9 +259,7 @@ postLmsResultUploadR sid qsh = do
postLmsResultDirectR :: SchoolId -> QualificationShorthand -> Handler Html postLmsResultDirectR :: SchoolId -> QualificationShorthand -> Handler Html
postLmsResultDirectR sid qsh = do postLmsResultDirectR sid qsh = do
(params, files) <- runRequestBody (_params, files) <- runRequestBody
$logWarnS "LMS_1" $ tshow params
$logWarnS "LMS_2" $ tshow $ fst <$> files
(status, msg) <- case files of (status, msg) <- case files of
[(fhead,file)] -> do [(fhead,file)] -> do
runDBJobs $ do runDBJobs $ do