FIX print020: conversion of case expressions of type 'Any' was wrong
authorSimon Marlow <simonmar@microsoft.com>
Mon, 7 May 2007 14:53:50 +0000 (14:53 +0000)
committerSimon Marlow <simonmar@microsoft.com>
Mon, 7 May 2007 14:53:50 +0000 (14:53 +0000)
commitfd8f8c6a4d1d5a91c0095804a9ada86c42d64141
treec3f1e665058db79155e6012eb14235096caab917
parentc7addbef67840954ad788434c28b0a3476ee0ad7
FIX print020: conversion of case expressions of type 'Any' was wrong
All primitive types were getting PrimAlts, where actually case
expressions on 'Any' should get a PolyAlt.  The result was that seq on
Any compiled into a no-op, which caused :force to go into an infinite
loop.
compiler/stgSyn/CoreToStg.lhs