From 75e2210ae5807500d08f48833fe98ef663aee5c1 Mon Sep 17 00:00:00 2001
From: SJost <jost@tcs.ifi.lmu.de>
Date: Wed, 20 Feb 2019 23:57:51 +0100
Subject: [PATCH] Fix build hlint

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

diff --git a/src/Handler/Course.hs b/src/Handler/Course.hs
index 18d507e0f..e7cf7276b 100644
--- a/src/Handler/Course.hs
+++ b/src/Handler/Course.hs
@@ -666,7 +666,7 @@ colUserComment tid ssh csh =
     sortable (Just "course-user-note") (i18nCell MsgCourseUserNote)
       $ \DBRow{ dbrOutput=(Entity uid _, _, mbNoteKey) } ->
         maybeEmpty mbNoteKey $ const $
-          anchorCellM (encrypt uid >>= return . courseLink) (commentWidget True)
+          anchorCellM (courseLink <$> encrypt uid) (commentWidget True)
   where
     courseLink = CourseR tid ssh csh . CUserR