[project @ 2001-12-03 11:36:26 by simonpj] ------------------------------------ 	Fix a tiresome and longstanding bug 	in typechecking of unlifted bindings 	------------------------------------
[project @ 2001-12-03 11:36:26 by simonpj]
------------------------------------
	Fix a tiresome and longstanding bug
	in typechecking of unlifted bindings
	------------------------------------

Consider

	data T = MkT Int# Int#

	f :: T -> Int#
	f t = a +# b
	    where
	      MkT a b = if ... then t else t

This should really be OK, but if the "..." includes
some constraints, the constraint simplifier was trying to
generate some d1=d2 bindings. This is Bad because the desugarer
treats unlifted bindings very specially (they are strict).

This commit fixes the problem, by ensuring we never get
local dictionary binding for an unlifted group.

This fixes the bug which has been making the Alpha port fall
over with a pattern-match failure in DsExpr.  Nothing to do
with Alpha; it's just that the word-size change gave rise
to a little more commoning-up of literals in the type checker
which in turn made the desugarer it fall over.

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