[...]
import Model.MySettings
[...]
makeFoundation :: AppSettings -> IO App
makeFoundation appSettings = do
    [...]
- maximum number of uploadable files
    let maxFiles = 5
    mysettings' <- newSettings maxFiles
-- make "myMax" version available globally
        let mkFoundation appConnPool = App mysettings'
[...]