#5625: Code using seq has wrong strictness when unoptimised (too lazy)
---------------------------------+------------------------------------------
    Reporter:  michal.palka      |       Owner:                             
        Type:  bug               |      Status:  new                        
    Priority:  normal            |   Component:  Compiler                   
     Version:  7.3               |    Keywords:  seq strictness strict lazy 
    Testcase:                    |   Blockedby:                             
          Os:  Unknown/Multiple  |    Blocking:                             
Architecture:  Unknown/Multiple  |     Failure:  Incorrect result at runtime
---------------------------------+------------------------------------------

Comment(by michal.palka):

 It seems that it's possible to simplify it further if `a` is exported.
 Thanks to Nick Smallbone for suggesting this one.

 {{{
 module Main (a, main) where

 a = \x -> seq undefined (+1)

 main = do
   print $ (a [] `seq` id) [0]
 }}}

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

_______________________________________________
Glasgow-haskell-bugs mailing list
Glasgow-haskell-bugs@haskell.org
http://www.haskell.org/mailman/listinfo/glasgow-haskell-bugs

Reply via email to