From 785818fe3e7dbb47b6942b896bbf6120e8f95ddb Mon Sep 17 00:00:00 2001
From: Alec Theriault <alec.theriault@gmail.com>
Date: Mon, 5 Feb 2018 23:02:29 -0800
Subject: Remove bang pattern

---
 haddock-library/src/Documentation/Haddock/Parser/Monad.hs | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/haddock-library/src/Documentation/Haddock/Parser/Monad.hs b/haddock-library/src/Documentation/Haddock/Parser/Monad.hs
index 3430ef8a..ff6101da 100644
--- a/haddock-library/src/Documentation/Haddock/Parser/Monad.hs
+++ b/haddock-library/src/Documentation/Haddock/Parser/Monad.hs
@@ -1,4 +1,4 @@
-{-# LANGUAGE GeneralizedNewtypeDeriving, TypeFamilies, BangPatterns #-}
+{-# LANGUAGE GeneralizedNewtypeDeriving, TypeFamilies #-}
 module Documentation.Haddock.Parser.Monad (
   module Documentation.Haddock.Parser.Monad
 , Attoparsec.isDigit
@@ -82,8 +82,8 @@ peekUnicode = lift $ Attoparsec.lookAhead $ do
   -- attoparsec's take fails on shorter inputs rather than truncate
   bs <- Attoparsec.choice (map Attoparsec.take [4,3,2,1])
   
-  let !c = head . decodeUtf8 $ bs
-      !n = Data.ByteString.length . encodeUtf8 $ [c]
+  let c = head . decodeUtf8 $ bs
+      n = Data.ByteString.length . encodeUtf8 $ [c]
   pure (c, fromIntegral n)
 
 -- | Like 'satisfy', but consuming a unicode character
-- 
cgit v1.2.3