From 16803ee79edf81d72f7b0537fa143e887680f743 Mon Sep 17 00:00:00 2001
From: Edward Kmett <ekmett@gmail.com>
Date: Sun, 8 Mar 2015 06:28:27 -0400
Subject: [PATCH] handle unnecessary bangpatterns

---
 src/Control/Concurrent/Speculation/Traversable.hs | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/src/Control/Concurrent/Speculation/Traversable.hs b/src/Control/Concurrent/Speculation/Traversable.hs
index 8022701..c62142f 100644
--- a/src/Control/Concurrent/Speculation/Traversable.hs
+++ b/src/Control/Concurrent/Speculation/Traversable.hs
@@ -1,4 +1,4 @@
-{-# LANGUAGE MagicHash, Rank2Types, UnboxedTuples, BangPatterns #-}
+{-# LANGUAGE MagicHash, Rank2Types, UnboxedTuples #-}
 {-# LANGUAGE CPP #-}
 #if defined(__GLASGOW_HASKELL__) && __GLASGOW_HASKELL__ >= 702
 {-# LANGUAGE Trustworthy #-}
@@ -213,6 +213,6 @@ instance Functor f => Functor (AccT f) where
 instance Applicative f => Applicative (AccT f) where
     pure a = AccT (\i -> Acc (I# i) (pure a))
     AccT mf <*> AccT ma = AccT (\i0# ->
-        let !(Acc !(I# i1#) f) = mf i0#
-            !(Acc i2 a) = ma i1#
+        let (Acc (I# i1#) f) = mf i0#
+            (Acc i2 a) = ma i1#
         in  Acc i2 (f <*> a))