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

[Malcolm Wallace]

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