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