From ff9014ce05d197c1dc0fce0774a640789cb38b26 Mon Sep 17 00:00:00 2001 From: Steffen Date: Tue, 2 Jul 2024 13:20:34 +0200 Subject: [PATCH] fix(avs): fix superfluous quotes for matriculation numbers on newly created users --- src/Handler/Utils/Avs.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/Handler/Utils/Avs.hs b/src/Handler/Utils/Avs.hs index 7a47218b4..0fce84082 100644 --- a/src/Handler/Utils/Avs.hs +++ b/src/Handler/Utils/Avs.hs @@ -537,7 +537,7 @@ createAvsUserById muid api = do , audEmail = persMail & fromMaybe ("AVSNO:" <> cpi ^. _avsInfoPersonNo . from _CI) , audIdent = persMail & fromMaybe ("AVSID:" <> ciShow api ) , audAuth = maybe AuthKindNoLogin (const AuthKindLDAP) internalPersNo - , audMatriculation = cpi ^. _avsInfoPersonNo & Just . tshow + , audMatriculation = cpi ^. _avsInfoPersonNo & Just , audSex = Nothing , audBirthday = cpi ^. _avsInfoDateOfBirth , audMobile = cpi ^. _avsInfoPersonMobilePhoneNo