From ee9aeea1ab3be5c8657dd25d77fe9df36501ac52 Mon Sep 17 00:00:00 2001 From: Ryan Newton Date: Mon, 8 Jul 2013 09:53:04 -0400 Subject: [PATCH] Relax to accept ghc 7.4 as well.. it DOES have Any --- AtomicPrimops/Data/Atomics/Internal.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/AtomicPrimops/Data/Atomics/Internal.hs b/AtomicPrimops/Data/Atomics/Internal.hs index 6be7f7d..8b46af2 100644 --- a/AtomicPrimops/Data/Atomics/Internal.hs +++ b/AtomicPrimops/Data/Atomics/Internal.hs @@ -13,11 +13,11 @@ module Data.Atomics.Internal import GHC.Base (Int(I#)) import GHC.Word (Word(W#)) import GHC.Prim (RealWorld, Int#, Word#, State#, MutableArray#, unsafeCoerce#, MutVar#, reallyUnsafePtrEquality#) -#if MIN_VERSION_base(4,6,0) +#if MIN_VERSION_base(4,5,0) -- Any is only in GHC 7.6!!! We want 7.4 support. import GHC.Prim (readMutVar#, casMutVar#, Any) #else -#error "Need to figure out how to emulate Any () in GHC 7.4." +#error "Need to figure out how to emulate Any () in GHC < 7.4 !" -- type Any a = Word# #endif