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