[jhc] Internal pattern match failure when using QuickCheck