On Dec 14, 2007 9:44 PM, Benja Fallenstein <benja.fallenstein@gmail.com> wrote:

data Val a = Val Int

instance Functor Val where
fmap f (Val x) = f `seq` Val x

Ah, good old seq. How I loathe it.

Seriously, though, good catch. I always forget about seq when I'm doing stuff like this.