on master help sign in
Help the GHC 7.0.2 arity analyser
97d73d7Johan Tibell
Data/Text/Lazy/Builder.hs+1−1
@@ -97,7 +97,7 @@ instance Show Builder where
97-- * @'toLazyText' 'empty' = 'L.empty'@
97-- * @'toLazyText' 'empty' = 'L.empty'@
98--
98--
99empty :: Builder
99empty :: Builder
100−empty = Builder id
100+empty = Builder (\ k buf -> k buf)
101{-# INLINE empty #-}
101{-# INLINE empty #-}
102
102
103-- | /O(1)./ A @Builder@ taking a single character, satisfying
103-- | /O(1)./ A @Builder@ taking a single character, satisfying