Improve Haskell extraction.

Signed-off-by: Austin Seipp <aseipp@pobox.com>