Crash on printing a ClockTime with a negative value for number of seconds since the epoch

[wozer]

This happened on a Windows XP machine.

Example program:

import System.Time
import Control.Exception

main= do
  let agesAgo = TOD (-1000) 0 
  putStrLn "created"    
  test <- evaluate agesAgo
  putStrLn "evaluated"
  putStrLn $ show test -- crashes
  putStrLn "printed"      

Output:

created
evaluated
Segmentation fault/access violation in generated code

[wagstaff]

Duplicate 2425?

[igloo]

Yup, looks like a duplicate of #2425; thanks wagstaff.

To echo that ticket: System.Time is indeed deprecated, you should use the new time package preferably.