[GHC] #12804: forever contains a space leak

[GHC]

#12804: forever contains a space leak
-------------------------------------+-------------------------------------
        Reporter:  tomjaguarpaw      |                Owner:
            Type:  bug               |               Status:  new
        Priority:  normal            |            Milestone:
       Component:  libraries/base    |              Version:  8.0.1
      Resolution:                    |             Keywords:
Operating System:  Unknown/Multiple  |         Architecture:
 Type of failure:  Runtime           |  Unknown/Multiple
  performance bug                    |            Test Case:
      Blocked By:                    |             Blocking:
 Related Tickets:                    |  Differential Rev(s):
       Wiki Page:                    |
-------------------------------------+-------------------------------------

Comment (by tomjaguarpaw):

 I confirm that the space leak is gone for `ReaderT` of `IO` if I define

 {{{#!hs
 f *> v  = ReaderT $ \ r -> runReaderT f r *> runReaderT v r
 }}}

 I presume (but haven't checked) that the space leak is also gone for
 `StateT` of `IO` if the corresponding implementation for `*>` is given in
 the `Applicative` instance.

--
Ticket URL: <http://ghc.haskell.org/trac/ghc/ticket/12804#comment:1>
GHC <http://www.haskell.org/ghc/>
The Glasgow Haskell Compiler