[GHC] #12492: internal error: allocation of 1048608 bytes too large

[GHC]

#12492: internal error: allocation of 1048608 bytes too large
-------------------------------------+-------------------------------------
        Reporter:  erikd             |                Owner:
            Type:  bug               |               Status:  new
        Priority:  normal            |            Milestone:  8.0.2
       Component:  Runtime System    |              Version:  8.0.1
      Resolution:                    |             Keywords:
Operating System:  Unknown/Multiple  |         Architecture:
                                     |  Unknown/Multiple
 Type of failure:  None/Unknown      |            Test Case:
      Blocked By:                    |             Blocking:
 Related Tickets:                    |  Differential Rev(s):
       Wiki Page:                    |
-------------------------------------+-------------------------------------

Comment (by erikd):

 Begining to think this is actually a problem with `ghc-datasize` or `ghc-
 heap-view` which it sits on top of. I have a function
 `readComplexDataStructureFromDisk`. If I do:

 {{{#!hs
   x <- readComplexDataStructureFromDisk
   size <- recursiveSize $ Control.DeepSeq.force x
   print size
 }}}

 I get the error above. If I rewrite it as:

 {{{#!hs
   x <- Control.DeepSeq.force <$> readComplexDataStructureFromDisk
   size <- recursiveSize x
   print size
 }}}

 there is no error.

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