@@ -97,7 +97,7 @@ singleton c = putChar c
98append :: Builder -> Builder -> Builder
98append :: Builder -> Builder -> Builder
99append (Builder f) (Builder g) = Builder (f . g)
99append (Builder f) (Builder g) = Builder (f . g)
100−{-# INLINE [1] append #-}
100+{-# INLINE [0] append #-}
102-- TODO: Experiment to find the right threshold.
102-- TODO: Experiment to find the right threshold.
103copyLimit :: Int
103copyLimit :: Int
@@ -226,13 +226,13 @@ ensureFree !n = withSize $ \ l ->
226 if n <= l
226 if n <= l
227 then empty
227 then empty
228 else flush `append'` withBuffer (const (newBuffer (max n defaultChunkSize)))
228 else flush `append'` withBuffer (const (newBuffer (max n defaultChunkSize)))
229−{-# INLINE [1] ensureFree #-}
229+{-# INLINE [0] ensureFree #-}
231-- | Ensure that @n@ many elements are available, and then use @f@ to
231-- | Ensure that @n@ many elements are available, and then use @f@ to
232-- write some elements into the memory.
232-- write some elements into the memory.
233writeN :: Int -> (forall s. A.MArray s Word16 -> Int -> ST s ()) -> Builder
233writeN :: Int -> (forall s. A.MArray s Word16 -> Int -> ST s ()) -> Builder
234writeN n f = ensureFree n `append'` withBuffer (writeNBuffer n f)
234writeN n f = ensureFree n `append'` withBuffer (writeNBuffer n f)
235−{-# INLINE [1] writeN #-}
235+{-# INLINE [0] writeN #-}
237writeNBuffer :: Int -> (A.MArray s Word16 -> Int -> ST s ()) -> (Buffer s)
237writeNBuffer :: Int -> (A.MArray s Word16 -> Int -> ST s ()) -> (Buffer s)
238 -> ST s (Buffer s)
238 -> ST s (Buffer s)