From 2893cdd167ba4b9ff70a2b9ecefc57a8d69ff1d8 Mon Sep 17 00:00:00 2001
From: Ben Gamari <bgamari.foss@gmail.com>
Date: Mon, 19 Mar 2012 18:22:53 +0000
Subject: [PATCH] Added support for GHC >= 7.4 (via conditional compilation)

---
 src/System/Plugins/Load.hs | 9 +++++++++
 1 file changed, 9 insertions(+)

diff --git a/src/System/Plugins/Load.hs b/src/System/Plugins/Load.hs
index f3c0c60..bb926c7 100644
--- a/src/System/Plugins/Load.hs
+++ b/src/System/Plugins/Load.hs
@@ -88,7 +88,12 @@ import Foreign.C.String         ( CString, withCString, peekCString )
 import GHC                      ( defaultCallbacks )
 #endif
 import GHC.Ptr                  ( Ptr(..), nullPtr )
+#if !MIN_VERSION_ghc(7,4,1)
 import GHC.Exts                 ( addrToHValue# )
+#else
+import GHC.Exts                 ( addrToAny# )
+#endif
+
 import GHC.Prim                 ( unsafeCoerce# )
 
 #if DEBUG
@@ -451,7 +456,11 @@ loadFunction__ pkg m valsym
         ptr@(Ptr addr) <- withCString symbol c_lookupSymbol
         if (ptr == nullPtr)
             then return Nothing
+#if !MIN_VERSION_ghc(7,4,1)
             else case addrToHValue# addr of
+#else
+            else case addrToAny# addr of
+#endif
                 (# hval #) -> return ( Just hval )