chore: fix tests

src/Handler/Exam/Correct.hs

@@ -169,7 +169,7 @@ postECorrectR tid ssh csh examn = do
                 audit $ TransactionExamPartResultDeleted examPartId uid
                 return Nothing
               | Just partResult <- mPartResult -> let
-                  mOld = (examPartResultResult . entityVal) <$> mOldResult
+                  mOld = examPartResultResult . entityVal <$> mOldResult
                   mNew = ExamAttended <$> mPartResult
                   resultVal = _entityVal . _examPartResultResult
                 in if

test/Handler/HomeSpec.hs

@@ -10,7 +10,7 @@ spec = withApp $ do
         it "loads the index and checks it looks right" $ do
           request $ do
             setMethod "GET"
-            setUrl HomeR
+            setUrl NewsR
             addRequestHeader ("Accept-Language", "de")
           statusIs 200
-          htmlAnyContain "h1" "Aktuelle Termine"
+          htmlAnyContain "h1" "Aktuelles"