Data.Time.RFC2822

Support for reading and displaying time in the format specified by the RFC2822 http://www.ietf.org/rfc/rfc2822.txt section 3.3

Example of usage:

import Data.Time.LocalTime

showTime :: IO Text
showTime = getZonedTime >>= return . formatTimeRFC2822

example1 = "Fri, 21 Nov 1997 09:55:06 -0600"
example2 = "Tue, 15 Nov 1994 12:45:26 GMT"
example3 = "Tue, 1 Jul 2003 10:52:37 +0200"
example4 = "Thu, 13 Feb 1969 23:32:54 -0330"
example5 = "Mon, 24 Nov 1997 14:22:01 -0800"
example6 = "Thu,          13\n     Feb\n  1969\n        23:32\n     -0330"
example7 = "Thu,          13\n     Feb\n  1969\n        23:32\n     -0330 (Newfoundland Time)"
example8 = "24 Nov 1997 14:22:01 -0800"
examples = [example1,example2,example3,example4,example5,example6,example7,example8]

readAll = map parseTimeRFC2822 examples

Basic type class

formatTimeRFC2822 :: TextualMonoid t => ZonedTime -> t

parseTimeRFC2822 :: TextualMonoid t => t -> Maybe ZonedTime