aboutsummaryrefslogtreecommitdiff
path: root/haddock-library
diff options
context:
space:
mode:
authorAlec Theriault <alec.theriault@gmail.com>2018-02-05 23:02:29 -0800
committeralexbiehl <alex.biehl@gmail.com>2018-03-02 15:48:43 +0100
commit785818fe3e7dbb47b6942b896bbf6120e8f95ddb (patch)
tree22f0a2a9306fec6b3a4b78220730a1b8013dc11d /haddock-library
parent44b1d87503a62181b4079962632cd61f1e158d79 (diff)
Remove bang pattern
Diffstat (limited to 'haddock-library')
-rw-r--r--haddock-library/src/Documentation/Haddock/Parser/Monad.hs6
1 files 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