On Monday 22 August 2011, 09:45:46, Sunil S Nandihalli wrote:
Hi Benjamin, It was longer than I could post here .. but here it is ..
Sorry for the line-mangling: advanceSweepLineTo front@(rangeToOpenTrapeziaMap,curSweepLineLocation) newSweepLineLocation = let delta = newSweepLineLocation - curSweepLineLocation (expandedTrapezia',_) = expandToAdvance front newSweepLineLocation expandedTrapezia = trace (" expandedTrapezia : "++show expandedTrapezia') $ expandedTrapezia There you have an infinite loop of the simple type, expandedTrapezia = expandedTrapezia On the right hand side, you're missing a ', should be expandedTrapezia' I don't know when you've added the trace calls, so there might well be another problem still.