-- Detection of available libraries
----------------------------------------------------------------------------------------
+#if __GLASGOW_HASKELL__ >= 606
#define HAVE_APPLICATIVE 1
+#else
+#define HAVE_APPLICATIVE 0
+#endif
-- we don't depend on MTL for now
#define HAVE_MTL 0
infixl 4 <$>
infixl 4 <*>
+instance Applicative IO where
+ pure = return
+ (<*>) = ap
+
#endif
----------------------------------------------------------------------------------------