StgVarInfo.lhs:272: Non-exhaustive patterns in CVS-ghc

[S.D.Mechveliani]

ghc-4.0?-pre-linux-i386  made from the CVS tree of about  June 5 1999
shows
     ghc -c Bug.hs
     StgVarInfo.lhs:272: Non-exhaustive patterns in function varsExpr

on the program 

  data D a = D { m :: !(Char -> a -> Bool) }

  h :: (b -> a) -> D a -> D b
  h    f           D {m = b} =  D { m = (\x-> (b x).f) }
--------------------------------------------------------
 
Removing     `!'
or removing  `Char ->'  from the format of `m'
satisfies the compiler.


------------------
Sergey Mechveliani
[EMAIL PROTECTED]