fraport/fradrive
3
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Ensure termNames read from LDAP are unique

Browse Source
This commit is contained in:
Gregor Kleen 2019-03-20 13:12:58 +01:00
parent 6344017db3
commit a81da6b7bf
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/Foundation.hs
View File

@ -42,6 +42,8 @@ import qualified Data.Set as Set
import Data.Map (Map, (!?)) import Data.Map (Map, (!?))
import qualified Data.Map as Map import qualified Data.Map as Map
import Data.List (nubBy)
import Data.Monoid (Any(..)) import Data.Monoid (Any(..))
import Data.Pool import Data.Pool
@ -2087,7 +2089,7 @@ instance YesodAuth UniWorX where
Right str <- return $ Text.decodeUtf8' v' Right str <- return $ Text.decodeUtf8' v'
return str return str
termNames = do termNames = nubBy ((==) `on` CI.mk) $ do
(k, v) <- ldapData (k, v) <- ldapData
guard $ k == Attr "dfnEduPersonFieldOfStudyString" guard $ k == Attr "dfnEduPersonFieldOfStudyString"
v' <- v v' <- v