refactoring with guard.
refactoring with guard.

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