cvs commit: hugs98/src static.c

[Sigbjorn Finne]

sof         2003/12/18 19:10:46 PST

  Modified files:
    src                  static.c 
  Log:
  extractBindings():
    when shifting type annotations from LHS of a patbind
    to RHS take care of floating the type past the source location
    in the (location,expr) that is the RHS.
  
  This, I believe, fixes the "findBtyvsInt" internal error reported
  in http://haskell.org/pipermail/hugs-bugs/2003-November/001402.html
  
  (The example code therein does show up a difference in behaviour between
  the Hugs and GHC TCs, but that's a separate matter.)
  
  Revision  Changes    Path
  1.163     +8 -3      hugs98/src/static.c