From 7badb3536ac4c26ad9ec11c9dc377d327cd7de9c Mon Sep 17 00:00:00 2001
From: Gregor Kleen <gkleen@yggdrasil.li>
Date: Fri, 1 Jun 2018 12:19:31 +0200
Subject: [PATCH] Don't allow uploads to shadow rating file

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

diff --git a/src/Handler/Submission.hs b/src/Handler/Submission.hs
index 28c0639a7..3e4975faf 100644
--- a/src/Handler/Submission.hs
+++ b/src/Handler/Submission.hs
@@ -181,7 +181,7 @@ postSubmissionR tid csh shn (SubmissionMode mcid) = do
             (Nothing, Just smid)   -- no new files, existing submission partners updated
               -> return smid
             (Just files, _)  -- new files
-              -> runConduit $ transPipe lift files .| Conduit.map Left .| sinkSubmission shid uid ((,False) <$> msmid)
+              -> runConduit $ transPipe lift files .| extractRatings .| sinkSubmission shid uid ((,False) <$> msmid)
             _ -> error "Impossible, because of definition of `makeSubmissionForm`"
           -- Determine members of pre-registered group
           groupUids <- fmap (setFromList . map E.unValue) . E.select . E.from $ \(submissionGroupUser `E.InnerJoin` submissionGroup `E.InnerJoin` submissionGroupUser') -> do