Changeset 5963 for src/Pugs/Internals.hs

Show
Ignore:
Timestamp:
07/31/05 23:15:50 (3 years ago)
Author:
autrijus
svk:copy_cache_prev:
8123
Message:

* Trying to make unsafePerformIO safer with -fno-full-laziness

-fno-cse and NOINLINE. It feels almost like Scheme now!

Files:
1 modified

Legend:

Unmodified
Added
Removed

  • src/Pugs/Internals.hs

    r5493 r5963  
    1 {-# OPTIONS_GHC -fglasgow-exts -fno-warn-orphans #-} 
     1{-# OPTIONS_GHC -fglasgow-exts -fno-warn-orphans -fno-full-laziness -fno-cse #-} 
    22 
    33{-| 
    … …  
    228228combine = foldr (.) id 
    229229 
     230{-# NOINLINE unsafePerformSTM #-} 
    230231unsafePerformSTM :: STM a -> a 
    231232unsafePerformSTM = unsafePerformIO . atomically