From 377a7f9970ed69ff5ee8a8474d0d3e6b5d84e938 Mon Sep 17 00:00:00 2001
From: Michael Snoyman <michael@snoyman.com>
Date: Tue, 24 Dec 2013 08:14:45 +0200
Subject: [PATCH] Fix fast-logger 2.0.1 for GHC 7.4

---
 patching/patches/fast-logger-2.0.1.patch | 19 +++++++++++++++++++
 1 file changed, 19 insertions(+)
 create mode 100644 patching/patches/fast-logger-2.0.1.patch

diff --git a/patching/patches/fast-logger-2.0.1.patch b/patching/patches/fast-logger-2.0.1.patch
new file mode 100644
index 00000000..7b0a7fec
--- /dev/null
+++ b/patching/patches/fast-logger-2.0.1.patch
@@ -0,0 +1,19 @@
+diff -ru orig/System/Log/FastLogger/Logger.hs new/System/Log/FastLogger/Logger.hs
+--- orig/System/Log/FastLogger/Logger.hs	2013-12-24 08:14:25.325658733 +0200
++++ new/System/Log/FastLogger/Logger.hs	2013-12-24 08:14:24.000000000 +0200
+@@ -19,6 +19,15 @@
+ 
+ data Logger = Logger (MVar Buffer) !BufSize (IORef LogStr)
+ 
++#if !MIN_VERSION_base(4, 6, 0)
++atomicModifyIORef' :: IORef a -> (a -> (a,b)) -> IO b
++atomicModifyIORef' ref f = do
++    b <- atomicModifyIORef ref
++            (\x -> let (a, b) = f x
++                    in (a, a `seq` b))
++    b `seq` return b
++#endif
++
+ newLogger :: BufSize -> IO Logger
+ newLogger size = do
+     buf <- getBuffer size