From 6f834a1635183f3c73e6dbd44687039cedc440a1 Mon Sep 17 00:00:00 2001
From: Eric Mertens <emertens@gmail.com>
Date: Sun, 27 Sep 2015 17:04:22 -0700
Subject: [PATCH] Apply same fix to modff as modf

---
 Numeric/Extras.hs | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/Numeric/Extras.hs b/Numeric/Extras.hs
index 2921aef..9c0e9c2 100644
--- a/Numeric/Extras.hs
+++ b/Numeric/Extras.hs
@@ -95,7 +95,11 @@ lift2F f a b = realToFrac (f (realToFrac a) (realToFrac b))
 {-# INLINE lift2F #-}
 
 c_modff :: CFloat -> (CFloat, CFloat)
-c_modff a = unsafeDupablePerformIO $ alloca (\i -> (,) <$> c_modff_imp a i <*> peek i)
+#if defined(__GLASGOW_HASKELL__) && __GLASGOW_HASKELL__ >= 702
+c_modff a = unsafeDupablePerformIO $ alloca $ \i -> (,) <$> c_modff_imp a i <*> peek i
+#else
+c_modff a = unsafePerformIO $ alloca $ \i -> (,) <$> c_modff_imp a i <*> peek i
+#endif
 
 foreign import ccall unsafe "math.h fmod"
     c_fmod :: CDouble -> CDouble -> CDouble