chore(printing): minor changes

src/Handler/Admin/Apc.hs

@@ -11,7 +11,21 @@ import Import
 
 -- import Handler.Utils
 
+{-
+data MetaPinRenewal = MetaPinRenewal 
+      { mppOpening
+      , mppClosing
+      , mppDate 
+      , mppURL
+      , mppLogin
+      , mppPin         
+      , mppRecipient :: Text
+      , mppAdress    :: [Text]
+      , mppLang      :: Text 
+      , mppIsDe      :: Bool
+      }
 
+-}      
 {-
 makePrintForm :: Maybe AvsPersonQuery -> Form AvsPersonQuery
 makeAvsPersonForm tmpl = identifyForm FIDAvsPersonQuery . validateForm validateAvsPersonQuery $ \html -> 

src/Handler/Utils/Servant/Avs.hs

@@ -87,7 +87,7 @@ runAvsPersonSearch qry = do
   case mbAvsConf of 
     Nothing -> return $ Left "appAvsConfig is empty, i.e. invalid AVS configuration settings."
     Just avsConf -> do 
-      -- TODO: consider using Servant.Client.Core.parseBaseUrl within Settings already at Startup!
+      -- TODO: consider using Servant.Client.Core.BaseUrl.Instances.parseBaseUrl' within Settings already at Startup!
       let avsServer = BaseUrl 
                         { baseUrlScheme = Https
                         , baseUrlHost = avsHost avsConf

templates/letter/fraport_renewal.md

@@ -19,10 +19,10 @@ hyperrefoptions: hidelinks
 date: 11.11.1111
 lang: de-de
 is-de: true
-lms-login: 123456
+login: 123456
-lms-pin: abcdef
+pin: abcdef
 # Emfpänger
-name: E. M. Pfänger
+recipient: E. M. Pfänger
 address:
  - Musterfirma GmbH
  - E. M. Pfänger
@@ -42,15 +42,15 @@ URL
 
 Name:
 
-  : $name$
+  : $recipient$
 
 Login
 
-  : $lms-login$
+  : $login$
 
 Pin
 
-  : $lms-pin$
+  : $pin$
 
 
 Sobald die Frist abgelaufen ist, muss zur Wiedererlangung des Vorfeldführerscheins
@@ -72,15 +72,15 @@ URL
 
 Name:
 
-  : $name$
+  : $recipient$
 
 Login
 
-  : $lms-login$
+  : $login$
 
 Pin
 
-  : $lms-pin$
+  : $pin$
 
 
 Should your apron driving licence expire before completing this