Make view patterns right-associate
Make view patterns right-associate

So that you can write

   f (v1 -> v2 -> pat)

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