[Haskell] Bug in hugs?