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

chore(load): record processing time

Browse Source
This commit is contained in:
Gregor Kleen 2020-06-05 12:47:52 +02:00
parent f270990011
commit b7a0d0ba9b
1 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
load/Load.hs
View File

@ -263,6 +263,8 @@ runSimulation' LoadSheetSubmission = do
where formURI' = nullURI { uriPath = unpack . Text.intercalate "/" $ "." : formPath }
(formPath, _) = renderRoute $ CSheetR loadTerm loadSchool loadCourse loadSheet SubmissionNewR
resp <- liftIO . Session.get session $ uriToString id formURI mempty
void . evaluate $! resp
procStart <- join $ asks runtime
-- Just formData <- return . getFormData FIDsubmission $ resp ^. responseBody
-- Just addButtonData <- return . flip (runFormScraper FIDsubmission) (resp ^. responseBody) $ do
-- let btnSel = "button" Scalpel.@: [Scalpel.hasClass "btn-mass-input-add"]
@ -298,6 +300,11 @@ runSimulation' LoadSheetSubmission = do
let subData = (:) fileData $ formData2 >>= \(name := (renderFormValue -> value)) -> do
guard $ name /= encodeUtf8 (fileData ^. partName)
return $ partBS (decodeUtf8 name) value
void . evaluate $! subData
procEnd <- join $ asks runtime
print ("proc", procEnd - procStart)
resp3 <- liftIO $ Session.post session (uriToString id formURI mempty) subData
void . evaluate $! resp3
-- print $ resp3 ^. responseStatus