[Haskell] Non-drifting clock, anyone?

Here it is, in all its greatly untested glory: http://pastebin.ca/109242 I don't know how much error it has, but the error won't stack up: if it's one second off, it will remain one second off until the end of time, or until your system clock drifts. But system clock drifts will be fixed by synchronizing your system clock with the outside world, except that if your clock jumps forward, this one will suddenly tick like mad, and if it jumps backward, this one will stop for a while... oh well.