From b7a0d0ba9b057a5c3df78f4b01f1c1c2a02f675a Mon Sep 17 00:00:00 2001
From: Gregor Kleen <gregor.kleen@ifi.lmu.de>
Date: Fri, 5 Jun 2020 12:47:52 +0200
Subject: [PATCH] chore(load): record processing time

---
 load/Load.hs | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/load/Load.hs b/load/Load.hs
index 95ae192fe..5302d3cef 100644
--- a/load/Load.hs
+++ b/load/Load.hs
@@ -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