FIX read040: patterns with type sig on LHS of do-binding
FIX read040: patterns with type sig on LHS of do-binding

f () = do { x :: Bool <- return True; ... }

For some reason the production for 'pat' required 'infixexp' on the
LHS of a do-notation binding.  This patch makes it an 'exp', which 
thereby allows an expression with a type sig.

Happily, there are no new shift-reduce errors, so I don't think this
will break anything else.




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