fix(avs): strip trailing whitespace from avs names upon import only

src/Handler/Utils/Avs.hs

@@ -392,7 +392,7 @@ upsertAvsUserById api = do
   $logInfoS "AVS" $ "upsert prestep result: " <> tshow mbuid <> " --- " <> tshow mbapd
   case (mbuid, mbapd) of
     ( _     , Nothing               ) -> throwM $ AvsUserUnknownByAvs api -- User not found in AVS at all, i.e. no valid card exists yet
-    (Nothing, Just AvsDataPerson{..}) -> do                               -- No LDAP User, but found in AVS; create new user
+    (Nothing, Just AvsDataPerson{avsPersonFirstName= Text.strip -> avsFirstName, avsPersonLastName= Text.strip -> avsSurname, ..}) -> do                               -- No LDAP User, but found in AVS; create new user
       let firmAddress = guessLicenceAddress avsPersonPersonCards
           mbCompany   = firmAddress ^? _Just . _1 . _Just
           userFirmAddr= plaintextToStoredMarkup . mergeCompanyAddress <$> firmAddress
@@ -402,9 +402,9 @@ upsertAvsUserById api = do
           fakeNo      = CI.mk $ "AVSNO:" <> tshow avsPersonPersonNo          
           newUsr = AddUserData
             { audTitle          = Nothing
-            , audFirstName = avsPersonFirstName
-            , audSurname   = avsPersonLastName
-            , audDisplayName = avsPersonFirstName <> " " <> avsPersonLastName
+            , audFirstName      = avsFirstName
+            , audSurname        = avsSurname
+            , audDisplayName    = avsFirstName <> Text.cons ' ' avsSurname
             , audDisplayEmail   = "" -- Email is unknown in this version of the avs query, to be updated later (FUTURE TODO)
             , audMatriculation  = Nothing
             , audSex            = Nothing

src/Model/Types/Avs.hs

@@ -398,8 +398,8 @@ deriveJSON defaultOptions
   } ''AvsStatusPerson
 
 data AvsDataPerson = AvsDataPerson
-      { avsPersonFirstName          :: Text
-      , avsPersonLastName           :: Text
+      { avsPersonFirstName          :: Text                         -- WARNING: name stored as is, but AVS does contain weird whitespaces
+      , avsPersonLastName           :: Text                         -- WARNING: name stored as is, but AVS does contain weird whitespaces
       , avsPersonInternalPersonalNo :: Maybe AvsInternalPersonalNo  -- Fraport Personalnummer
       , avsPersonPersonNo           :: Int                          -- AVS Personennummer, Bedeutung ist unklar
       , avsPersonPersonID           :: AvsPersonId                  -- Eindeutige PersonenID, wichtig für die Schnittstelle!