fix warnings
authorSimon Marlow <marlowsd@gmail.com>
Thu, 9 Aug 2012 08:50:55 +0000 (09:50 +0100)
committerSimon Marlow <marlowsd@gmail.com>
Thu, 9 Aug 2012 08:50:55 +0000 (09:50 +0100)
Control/Monad/STM.hs

index 30bbae7..5c5e135 100644 (file)
@@ -55,8 +55,12 @@ import Control.Monad.Fix
 import Control.Sequential.STM
 #endif
 
+#ifdef __GLASGOW_HASKELL__
+#if ! (MIN_VERSION_base(4,3,0))
 import Control.Applicative
 import Control.Monad (ap)
+#endif
+#endif
 
 
 #ifdef __GLASGOW_HASKELL__