Permalink
Browse files

Help the GHC 7.0.2 arity analyser

  • Loading branch information...
1 parent 5ddbf73 commit 97d73d7c462ec1da45d7ac9900855533e67aad3e @tibbe tibbe committed May 21, 2011
Showing with 1 addition and 1 deletion.
  1. +1 −1 Data/Text/Lazy/Builder.hs
@@ -97,7 +97,7 @@ instance Show Builder where
-- * @'toLazyText' 'empty' = 'L.empty'@
--
empty :: Builder
-empty = Builder id
+empty = Builder (\ k buf -> k buf)
{-# INLINE empty #-}
-- | /O(1)./ A @Builder@ taking a single character, satisfying

0 comments on commit 97d73d7

Please sign in to comment.