From a81da6b7bfcb0e77fc3b8f9adea0ea212c1da2c1 Mon Sep 17 00:00:00 2001
From: Gregor Kleen <kleen@cip.ifi.lmu.de>
Date: Wed, 20 Mar 2019 13:12:58 +0100
Subject: [PATCH] Ensure termNames read from LDAP are unique

---
 src/Foundation.hs | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/src/Foundation.hs b/src/Foundation.hs
index 282b0111e..4295f1179 100644
--- a/src/Foundation.hs
+++ b/src/Foundation.hs
@@ -42,6 +42,8 @@ import qualified Data.Set as Set
 import Data.Map (Map, (!?))
 import qualified Data.Map as Map
 
+import Data.List (nubBy)
+
 import Data.Monoid (Any(..))
 
 import Data.Pool
@@ -2087,7 +2089,7 @@ instance YesodAuth UniWorX where
               Right str <- return $ Text.decodeUtf8' v'
               return str
 
-            termNames = do
+            termNames = nubBy ((==) `on` CI.mk) $ do
               (k, v) <- ldapData
               guard $ k == Attr "dfnEduPersonFieldOfStudyString"
               v' <- v