用于在Haskell中解析日期时间的正确格式字符串

import Data.Time.Format
import Data.Time.Clock
import Data.Time.LocalTime

parseDateTime :: String -> Maybe UTCTime
parseDateTime str = parseTimeM True defaultTimeLocale "%Y-%m-%d %H:%M:%S" str

main :: IO ()
main = do
  let dateTimeStr = "2022-01-01 12:00:00"
  case parseDateTime dateTimeStr of
    Just dateTime -> putStrLn $ "Parsed datetime: " ++ show dateTime
    Nothing -> putStrLn "Failed to parse datetime"