Add INLINE pragma

meiersi · Jan 13, 2014 · 1869752 · 1869752
1 parent 07a754b
commit 1869752
Showing 1 changed file with 1 addition and 0 deletions.
diff --git 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