Forgotten minor bugfixes that belong to master, but slipped into this branch.

src/Foundation.hs

@@ -188,7 +188,7 @@ isAuthorizedDB (CourseEditExistR t c) _ = courseLecturerAccess . entityKey =<< g
 isAuthorizedDB (CourseEditExistIDR cID) _ = do
   courseId <- decrypt cID
   courseLecturerAccess courseId
-isAuthorizedDB route isWrite = return  $ Unauthorized "No access to this route." -- Calling isAuthorized here creates infinite loop!
+isAuthorizedDB _route _isWrite = return  $ Unauthorized "No access to this route." -- Calling isAuthorized here creates infinite loop!
 
 submissionAccess :: Either CryptoFileNameSubmission CryptoUUIDSubmission -> YesodDB UniWorX AuthResult
 submissionAccess cID = do
@@ -384,7 +384,7 @@ instance YesodAuth UniWorX where
     authHttpManager = getHttpManager
 
 ldapConfig :: UniWorX -> LDAPConfig
-ldapConfig app@(appSettings -> settings) = LDAPConfig
+ldapConfig _app@(appSettings -> settings) = LDAPConfig
   { usernameFilter = \u -> principalName <> "=" <> u
   , identifierModifier
   , ldapUri = appLDAPURI settings

src/Handler/Sheet.hs

@@ -28,7 +28,11 @@ import Handler.Utils
 
 
 getSheetListR :: TermIdentifier -> Text -> Handler Html
-getSheetListR _ _ = defaultLayout [whamlet| Under Construction !!! |] -- TODO
+getSheetListR tid csh = do
+--   mbAid <- maybeAuthId
+--   _ <- runDB $ do
+--         courseEnt@(Entity cid course) <- getBy404 $ CourseTermShort (TermKey tid) csh
+  defaultLayout [whamlet| Under Construction !!! |] -- TODO
 
 getSheetNewR :: TermIdentifier -> Text -> Handler Html
 getSheetNewR _ _ = defaultLayout [whamlet| Under Construction !!! |] -- TODO

src/Handler/Submission.hs

@@ -100,7 +100,7 @@ postSubmissionListR = do
               sinks <- execStateC Map.empty . awaitForever $ \case
                 v@(Right (sId, _)) -> lift $ feed sId v
                 (Left f@File{..})  -> case splitDirectories fileTitle of
-                  (cID:rest)
+                  (cID:rest) 
                     | not (null rest) -> do
                         sId <- decrypt (CryptoID $ CI.mk cID :: CryptoFileNameSubmission)
                         lift . feed sId $ Left f{ fileTitle = joinPath rest }

src/Handler/Utils/Submission.hs

@@ -109,7 +109,7 @@ sinkSubmission sheetId userId mExists = do
               | not (null collidingFiles)  = any (/~ file) [ f | (Entity _ f, _) <- collidingFiles ]
               | otherwise                  = True
             matchesUnderlying
-              | not (null underlyingFiles) = all (~~ file) [ f | (Entity _ f, Entity _ sf) <- underlyingFiles ]
+              | not (null underlyingFiles) = all (~~ file) [ f | (Entity _ f, Entity _ _sf) <- underlyingFiles ]
               | otherwise                  = False
             undoneDeletion = any submissionFileIsDeletion [ sf | (_, Entity _ sf) <- collidingFiles ]