@@ -0,0 +1,19 @@
1+diff -ru orig/System/Log/FastLogger/Logger.hs new/System/Log/FastLogger/Logger.hs
2+--- orig/System/Log/FastLogger/Logger.hs 2013-12-24 08:14:25.325658733 +0200
3++++ new/System/Log/FastLogger/Logger.hs 2013-12-24 08:14:24.000000000 +0200
4+@@ -19,6 +19,15 @@
5+
6+ data Logger = Logger (MVar Buffer) !BufSize (IORef LogStr)
7+
8++#if !MIN_VERSION_base(4, 6, 0)
9++atomicModifyIORef' :: IORef a -> (a -> (a,b)) -> IO b
10++atomicModifyIORef' ref f = do
11++ b <- atomicModifyIORef ref
12++ (\x -> let (a, b) = f x
13++ in (a, a `seq` b))
14++ b `seq` return b
15++#endif
16++
17+ newLogger :: BufSize -> IO Logger
18+ newLogger size = do
19+ buf <- getBuffer size