id	summary	reporter	owner	description	type	status	priority	milestone	component	version	resolution	keywords	cc	os	architecture	failure	difficulty	testcase	blockedby	blocking	related
5175	UTCTime serialization not idempotent	warren		"decode . encode is not idempotent for UTCTime:

{{{
import Data.Time
import Data.Binary

test = do
  t <- getCurrentTime
  putStrLn $ ""time: "" ++ show t
  let b = encode t
      t' = decode b :: UTCTime
  putStrLn $ ""  t': "" ++ show t'
}}}

Running this code yields:

{{{
time: 2011-05-06 18:50:40.972389 UTC
  t': 2011-05-06 00:00:00.001148625728 UTC
}}}
"	bug	closed	normal		libraries (other)	7.0.3	invalid			Unknown/Multiple	Unknown/Multiple	None/Unknown