disable a debugging trace, and a little refactoring
disable a debugging trace, and a little refactoring

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