Make worker/wrapper robust to bogus unsafeCorece
Make worker/wrapper robust to bogus unsafeCorece

Fixes Trac #8037

vTurbine/ghc,elieux/ghc,bitemyapp/ghc,mfine/ghc,GaloisInc/halvm-ghc,nushio3/ghc,AlexanderPankiv/ghc,christiaanb/ghc,nathyong/microghc-ghc,forked-upstream-packages-for-ghcjs/ghc,ghc-android/ghc,fmthoma/ghc,ml9951/ghc,lukexi/ghc,tjakway/ghcjvm,vikraman/ghc,shlevy/ghc,spacekitteh/smcghc,frantisekfarka/ghc-dsi,mfine/ghc,oldmanmike/ghc,ryantm/ghc,mcschroeder/ghc,da-x/ghc,anton-dessiatov/ghc,vTurbine/ghc,mfine/ghc,lukexi/ghc,wxwxwwxxx/ghc,mcschroeder/ghc,oldmanmike/ghc,nkaretnikov/ghc,nkaretnikov/ghc,hferreiro/replay,shlevy/ghc,siddhanathan/ghc,gcampax/ghc,snoyberg/ghc,elieux/ghc,oldmanmike/ghc,green-haskell/ghc,lukexi/ghc-7.8-arm64,anton-dessiatov/ghc,frantisekfarka/ghc-dsi,sdiehl/ghc,shlevy/ghc,da-x/ghc,forked-upstream-packages-for-ghcjs/ghc,mfine/ghc,ezyang/ghc,ezyang/ghc,wxwxwwxxx/ghc,mettekou/ghc,olsner/ghc,nushio3/ghc,TomMD/ghc,oldmanmike/ghc,ghc-android/ghc,ghc-android/ghc,acowley/ghc,gridaphobe/ghc,spacekitteh/smcghc,nkaretnikov/ghc,vTurbine/ghc,tibbe/ghc,ml9951/ghc,oldmanmike/ghc,TomMD/ghc,wxwxwwxxx/ghc,siddhanathan/ghc,GaloisInc/halvm-ghc,fmthoma/ghc,AlexanderPankiv/ghc,bitemyapp/ghc,fmthoma/ghc,acowley/ghc,spacekitteh/smcghc,AlexanderPankiv/ghc,sdiehl/ghc,vikraman/ghc,acowley/ghc,TomMD/ghc,urbanslug/ghc,ghc-android/ghc,frantisekfarka/ghc-dsi,GaloisInc/halvm-ghc,nathyong/microghc-ghc,tibbe/ghc,urbanslug/ghc,tjakway/ghcjvm,sdiehl/ghc,nushio3/ghc,TomMD/ghc,nushio3/ghc,olsner/ghc,anton-dessiatov/ghc,ezyang/ghc,TomMD/ghc,gridaphobe/ghc,sgillespie/ghc,sgillespie/ghc,oldmanmike/ghc,TomMD/ghc,shlevy/ghc,green-haskell/ghc,sdiehl/ghc,tjakway/ghcjvm,bitemyapp/ghc,gcampax/ghc,nathyong/microghc-ghc,mfine/ghc,holzensp/ghc,vikraman/ghc,siddhanathan/ghc,mettekou/ghc,frantisekfarka/ghc-dsi,vikraman/ghc,ml9951/ghc,da-x/ghc,hferreiro/replay,siddhanathan/ghc,snoyberg/ghc,mettekou/ghc,holzensp/ghc,AlexanderPankiv/ghc,lukexi/ghc-7.8-arm64,mettekou/ghc,anton-dessiatov/ghc,spacekitteh/smcghc,vTurbine/ghc,urbanslug/ghc,tibbe/ghc,mfine/ghc,sdiehl/ghc,mettekou/ghc,shlevy/ghc,fmthoma/ghc,ryantm/ghc,acowley/ghc,anton-dessiatov/ghc,spacekitteh/smcghc,ml9951/ghc,bitemyapp/ghc,da-x/ghc,GaloisInc/halvm-ghc,oldmanmike/ghc,snoyberg/ghc,acowley/ghc,nkaretnikov/ghc,ml9951/ghc,fmthoma/ghc,olsner/ghc,gcampax/ghc,lukexi/ghc-7.8-arm64,christiaanb/ghc,elieux/ghc,forked-upstream-packages-for-ghcjs/ghc,holzensp/ghc,nathyong/microghc-ghc,gcampax/ghc,fmthoma/ghc,da-x/ghc,ezyang/ghc,elieux/ghc,mcschroeder/ghc,jstolarek/ghc,nkaretnikov/ghc,nathyong/microghc-ghc,ghc-android/ghc,sgillespie/ghc,fmthoma/ghc,tibbe/ghc,green-haskell/ghc,christiaanb/ghc,nushio3/ghc,olsner/ghc,gridaphobe/ghc,urbanslug/ghc,tjakway/ghcjvm,ghc-android/ghc,nathyong/microghc-ghc,nathyong/microghc-ghc,GaloisInc/halvm-ghc,ryantm/ghc,lukexi/ghc-7.8-arm64,mcschroeder/ghc,sdiehl/ghc,sgillespie/ghc,TomMD/ghc,wxwxwwxxx/ghc,snoyberg/ghc,hferreiro/replay,da-x/ghc,christiaanb/ghc,vTurbine/ghc,acowley/ghc,anton-dessiatov/ghc,wxwxwwxxx/ghc,snoyberg/ghc,jstolarek/ghc,lukexi/ghc,forked-upstream-packages-for-ghcjs/ghc,forked-upstream-packages-for-ghcjs/ghc,urbanslug/ghc,forked-upstream-packages-for-ghcjs/ghc,jstolarek/ghc,hferreiro/replay,forked-upstream-packages-for-ghcjs/ghc,sgillespie/ghc,jstolarek/ghc,tibbe/ghc,mfine/ghc,ml9951/ghc,lukexi/ghc,ghc-android/ghc,siddhanathan/ghc,holzensp/ghc,GaloisInc/halvm-ghc,gridaphobe/ghc,ml9951/ghc,ezyang/ghc,gridaphobe/ghc,sgillespie/ghc,olsner/ghc,nushio3/ghc,olsner/ghc,GaloisInc/halvm-ghc,mcschroeder/ghc,snoyberg/ghc,christiaanb/ghc,gridaphobe/ghc,AlexanderPankiv/ghc,vikraman/ghc,nkaretnikov/ghc,holzensp/ghc,mcschroeder/ghc,tjakway/ghcjvm,mettekou/ghc,sgillespie/ghc,olsner/ghc,green-haskell/ghc,AlexanderPankiv/ghc,ml9951/ghc,green-haskell/ghc,tjakway/ghcjvm,snoyberg/ghc,wxwxwwxxx/ghc,vikraman/ghc,shlevy/ghc,tjakway/ghcjvm,vTurbine/ghc,mcschroeder/ghc,sdiehl/ghc,ezyang/ghc,hferreiro/replay,gcampax/ghc,vTurbine/ghc,anton-dessiatov/ghc,ryantm/ghc,AlexanderPankiv/ghc,jstolarek/ghc,hferreiro/replay,christiaanb/ghc,da-x/ghc,acowley/ghc,bitemyapp/ghc,mettekou/ghc,urbanslug/ghc,shlevy/ghc,urbanslug/ghc,gridaphobe/ghc,ezyang/ghc,siddhanathan/ghc,christiaanb/ghc,ryantm/ghc,elieux/ghc,vikraman/ghc,nkaretnikov/ghc,lukexi/ghc-7.8-arm64,lukexi/ghc,elieux/ghc,gcampax/ghc,gcampax/ghc,frantisekfarka/ghc-dsi,elieux/ghc,nushio3/ghc,wxwxwwxxx/ghc,siddhanathan/ghc,hferreiro/replay