From 18697520c24f56d695f6a0e46bc3b75d48220dad Mon Sep 17 00:00:00 2001
From: Leon P Smith <leon@melding-monads.com>
Date: Mon, 13 Jan 2014 13:31:49 -0500
Subject: [PATCH] Add INLINE pragma

---
 Blaze/ByteString/Builder/Html/Utf8.hs | 1 +
 1 file changed, 1 insertion(+)

diff --git a/Blaze/ByteString/Builder/Html/Utf8.hs b/Blaze/ByteString/Builder/Html/Utf8.hs
index 25e532b..1ca398f 100644
--- a/Blaze/ByteString/Builder/Html/Utf8.hs
+++ b/Blaze/ByteString/Builder/Html/Utf8.hs
@@ -81,6 +81,7 @@ charUtf8HtmlEscaped =
     fixed5 x = P.liftFixedToBounded $ const x >$<
       P.char7 >*< P.char7 >*< P.char7 >*< P.char7 >*< P.char7
 
+    {-# INLINE fixed6 #-}
     fixed6 x = P.liftFixedToBounded $ const x >$<
       P.char7 >*< P.char7 >*< P.char7 >*< P.char7 >*< P.char7 >*< P.char7