module Model.MySettings ( MySettings(..) , newSettings )where import [...] -- type synonym type Max = Int --Datentyp MySettings data MySettings = MySettings { myMax :: Max } --this function determines the maximum number of uploadable files newSettings num = do return MySettings { myMax = num }