Make it compile with base<4.2
authorSimon Marlow <marlowsd@gmail.com>
Mon, 5 Jul 2010 13:18:31 +0000 (13:18 +0000)
committerSimon Marlow <marlowsd@gmail.com>
Mon, 5 Jul 2010 13:18:31 +0000 (13:18 +0000)
Control/Concurrent/STM/TVar.hs

index 7d2483c..771de0c 100644 (file)
@@ -30,3 +30,7 @@ import GHC.Conc
 #else
 import Control.Sequential.STM
 #endif
+
+#if ! MIN_VERSION_base(4,2,0)
+readTVarIO = atomically . readTVar
+#endif