From c520918eb350adcfc7fbda2b6edb6b8915cc8ea7 Mon Sep 17 00:00:00 2001 From: Sarah Vaupel Date: Fri, 24 Jan 2020 13:22:05 +0100 Subject: [PATCH] fix(exam-correct): fix hlint --- src/Handler/Exam/Correct.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/Handler/Exam/Correct.hs b/src/Handler/Exam/Correct.hs index c1c095096..fcc025a95 100644 --- a/src/Handler/Exam/Correct.hs +++ b/src/Handler/Exam/Correct.hs @@ -109,12 +109,12 @@ postECorrectR tid ssh csh examn = do E.||. user E.^. UserMatrikelnummer E.==. E.val mUserIdent E.||. user E.^. UserMatrikelnummer `E.hasInfix` E.val mUserIdent E.||. (case mUserIdent of - Just userIdent -> (user E.^. UserSurname E.==. E.val userIdent + Just userIdent -> user E.^. UserSurname E.==. E.val userIdent E.||. user E.^. UserSurname `E.hasInfix` E.val userIdent E.||. user E.^. UserFirstName E.==. E.val userIdent E.||. user E.^. UserFirstName `E.hasInfix` E.val userIdent E.||. user E.^. UserDisplayName E.==. E.val userIdent - E.||. user E.^. UserDisplayName `E.hasInfix` E.val userIdent) + E.||. user E.^. UserDisplayName `E.hasInfix` E.val userIdent Nothing -> E.val False) return user