Update Control/Error.hs

This fixes issue #12.