Help the GHC 7.0.2 arity analyser
commit97d73d7c462ec1da45d7ac9900855533e67aad3e
authorJohan Tibell <johan.tibell@gmail.com>
dateSat 21 May 2011, 08:43 (15 years ago)
parent5ddbf73
Data/Text/Lazy/Builder.hs+1−1
@@ -97,7 +97,7 @@ instance Show Builder where
9797-- * @'toLazyText' 'empty' = 'L.empty'@
9898--
9999empty :: Builder
100−empty = Builder id
100+empty = Builder (\ k buf -> k buf)
101101{-# INLINE empty #-}
102102
103103-- | /O(1)./ A @Builder@ taking a single character, satisfying