[...] 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' [...]