[cvs-nhc98] Do `extractExp' on field update expressions, to ensure tha

malcolm: Tue May 21 13:08:23 CEST 2002 Update of /usr/src/master/nhc/src/compiler98 In directory hinken:/tmp/cvs-serv1672/src/compiler98 Modified Files: Extract.hs Log Message: 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 }