[project @ 2002-03-08 15:47:18 by simonpj]
authorsimonpj <unknown>
Fri, 8 Mar 2002 15:47:19 +0000 (15:47 +0000)
committersimonpj <unknown>
Fri, 8 Mar 2002 15:47:19 +0000 (15:47 +0000)
commit4593b1053cdc55c10f3df804630a1d90890d8473
tree4c499703cda89d125b8d17be358a7775bf17f7b1
parent354f17ec86e2e11f2e77a159916b2e7be74979c9
[project @ 2002-03-08 15:47:18 by simonpj]
------------------------
Kill Type.splitRepFunTys
------------------------

splitRepFunTys was a Bad Function that split up a function type
looking through even recursive newtypes.  Alas, it diverged if
when we had a recursive newtype with a function whose result was
the newtype itself.

I've replaced it with ordinary splitFunTys, plus a new function
Type.dropForAlls, which does what you would expect.
ghc/compiler/ghci/ByteCodeGen.lhs
ghc/compiler/profiling/SCCfinal.lhs
ghc/compiler/simplCore/OccurAnal.lhs
ghc/compiler/simplCore/SimplUtils.lhs
ghc/compiler/stgSyn/StgLint.lhs
ghc/compiler/stranal/WwLib.lhs
ghc/compiler/types/Type.lhs