関数を返す関数
n日後を返す関数を返す関数です。日付操作があんまり分かっていません。
import Data.Time time = UTCTime (fromGregorian 2007 7 20) (timeOfDayToTime $ TimeOfDay 20 11 42) main = do putStrLn $ show $ time putStrLn $ show $ fiveDaysLater time fiveDaysLater = nDaysLater 5 nDaysLater n = addUTCTime (n * 3600 * 24)