Skip to content

Commit

Permalink
Relax to accept ghc 7.4 as well.. it DOES have Any
Browse files Browse the repository at this point in the history
  • Loading branch information
rrnewton committed Jul 8, 2013
1 parent 34f6719 commit ee9aeea
Showing 1 changed file with 2 additions and 2 deletions.
4 changes: 2 additions & 2 deletions AtomicPrimops/Data/Atomics/Internal.hs
Expand Up @@ -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

Expand Down

0 comments on commit ee9aeea

Please sign in to comment.