Fix Trac #7506 (missing check for form of FFI type)
Fix Trac #7506 (missing check for form of FFI type)

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