Skip to content

Commit

Permalink
Check for 'base' version, not for GHC version.
Browse files Browse the repository at this point in the history
  • Loading branch information
svenpanne committed Mar 21, 2018
1 parent ee33c10 commit c6cd93f
Showing 1 changed file with 1 addition and 1 deletion.
2 changes: 1 addition & 1 deletion src/Data/StateVar.hs
Original file line number Diff line number Diff line change
Expand Up @@ -238,7 +238,7 @@ instance Storable a => HasUpdate (Ptr a) a a where

instance HasUpdate (IORef a) a a where
r $~ f = liftIO $ atomicModifyIORef r $ \a -> (f a,())
#if __GLASGOW_HASKELL__ >= 706
#if MIN_VERSION_base(4,6,0)
r $~! f = liftIO $ atomicModifyIORef' r $ \a -> (f a,())
#else
r $~! f = liftIO $ do
Expand Down

0 comments on commit c6cd93f

Please # to comment.