[...]
 import Model.MySettings
 [...]
 makeFoundation :: AppSettings -> IO App
 makeFoundation appSettings = do
     [...]
     -- maximale Anzahl an hochladbaren Dateien
     let maxFiles = 5
     mysettings' <- newSettings maxFiles
     --Variable "myMax" global verfügbar machen
         let mkFoundation appConnPool = App mysettings'
 [...]