Fix build.
authorAustin Seipp <aseipp@pobox.com>
Thu, 11 Jul 2013 18:25:11 +0000 (13:25 -0500)
committerAustin Seipp <aseipp@pobox.com>
Thu, 11 Jul 2013 18:25:11 +0000 (13:25 -0500)
We forgot to import tryAtomicReadMVar.

Signed-off-by: Austin Seipp <aseipp@pobox.com>
Control/Concurrent/MVar.hs

index 62a9161..0b3a081 100644 (file)
@@ -157,7 +157,8 @@ import Hugs.ConcBase ( MVar, newEmptyMVar, newMVar, takeMVar, putMVar,
 
 #ifdef __GLASGOW_HASKELL__
 import GHC.MVar ( MVar(..), newEmptyMVar, newMVar, takeMVar, putMVar,
-                  tryTakeMVar, tryPutMVar, isEmptyMVar, atomicReadMVar
+                  tryTakeMVar, tryPutMVar, isEmptyMVar, atomicReadMVar,
+                  tryAtomicReadMVar
                 )
 import qualified GHC.MVar
 import GHC.Weak