[commit: ghc] ghc-lwc: Inline label fixed for swapMVar (1c74f7b)

[Sivaramakrishnan Krishnamoorthy Chandrasekaran]

Repository : ssh://darcs.haskell.org//srv/darcs/ghc

On branch  : ghc-lwc

http://hackage.haskell.org/trac/ghc/changeset/1c74f7bfcab1bd8f5d9a91af2a9157fa393178b8

>---------------------------------------------------------------

commit 1c74f7bfcab1bd8f5d9a91af2a9157fa393178b8
Author: KC Sivaramakrishnan <chandras at cs.purdue.edu>
Date:   Sat Jun 9 20:01:39 2012 -0400

    Inline label fixed for swapMVar

>---------------------------------------------------------------

 libraries/lwconc/LwConc/MVar.hs |    2 +-
 1 files changed, 1 insertions(+), 1 deletions(-)

diff --git a/libraries/lwconc/LwConc/MVar.hs b/libraries/lwconc/LwConc/MVar.hs
index 7730699..1f73047 100644
--- a/libraries/lwconc/LwConc/MVar.hs
+++ b/libraries/lwconc/LwConc/MVar.hs
@@ -85,7 +85,7 @@ readMVar (MVar ref) = do
          Full x _ -> unsafeIOToPTM $ writeIORef hole x
   readIORef hole
 
-{-# INLINE readMVar #-}
+{-# INLINE swapMVar #-}
 swapMVar :: MVar a -> a -> IO a
 swapMVar (MVar ref) newValue = do
   hole <- newIORef undefined