hpaste-1.2.0: src/Data/Time/Show.hs

{-# OPTIONS -Wall #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE RecordWildCards #-}

-- | Date/time showing functions.

module Data.Time.Show
  (showDateTime)
  where
  
import Data.Time     (FormatTime,formatTime)
import System.Locale (defaultTimeLocale)

showDateTime :: FormatTime t => t -> String
showDateTime time = formatTime defaultTimeLocale "%F %T %Z" time