[cvs-nhc98] patch applied (hat): Do `extractExp' on field update expressions, to ensure that local

Tue May 21 04:08:22 PDT 2002 malcolm * Do `extractExp' on field update expressions, to ensure that local let-expressions get their arity recorded. This avoids a compiler failure later on. Test case that previously broke the compiler: module Apa where data A = A{ field :: Bool } apa = A{ field = let s = False in s } M ./src/compiler98/Extract.hs -1 +6