This function wasn't exported before, does it need to be exported now?

Also, needs an `#ifdef __GLASGOW_HASKELL__`.