module Main where import Data.List.Split import Data.Time.Calendar import Data.Time.Calendar.WeekDate import Data.Time.Clock import Data.Time.Format import Data.Time.LocalTime import Data.Text (pack, unpack, center) import System.Locale 主処理 = main main = 現在日付を取得 >>= 指定日付を表示用に加工 >>= プリントアウト 現在日付を取得 = getZonedTime プリントアウト = putStrLn 指定日付を表示用に加工 :: ZonedTime -> IO String 指定日付を表示用に加工 任意の日付 = do 日付 <-