Fix leak

As [posted](https://groups.google.com/forum/#!topic/haskell-gloss/LDZ91YBj6JM) on the mailing list.