Permalink
Browse files

Update some comments and whitespace

  • Loading branch information...
bos committed Mar 19, 2013
1 parent 663a117 commit 296d7b972da30f3a2efe594470ffc7d1fcd67807
Showing with 15 additions and 8 deletions.
  1. +5 −2 Data/Text/Lazy/Builder.hs
  2. +5 −4 Data/Text/Lazy/Builder/Int.hs
  3. +5 −2 Data/Text/Lazy/Builder/Internal.hs
@@ -3,7 +3,8 @@
-----------------------------------------------------------------------------
-- |
-- Module : Data.Text.Lazy.Builder
--- Copyright : (c) 2010 Johan Tibell
+-- Copyright : (c) 2013 Bryan O'Sullivan
+-- (c) 2010 Johan Tibell
-- License : BSD3-style (see LICENSE)
--
-- Maintainer : Johan Tibell <johan.tibell@gmail.com>
@@ -15,7 +16,9 @@
-- @fromLazyText@, which construct new builders, and 'mappend', which
-- concatenates two builders.
--
--- To get maximum performance when building lazy @Text@ values using a builder, associate @mappend@ calls to the right. For example, prefer
+-- To get maximum performance when building lazy @Text@ values using a
+-- builder, associate @mappend@ calls to the right. For example,
+-- prefer
--
-- > singleton 'a' `mappend` (singleton 'b' `mappend` singleton 'c')
--
@@ -1,7 +1,8 @@
{-# LANGUAGE BangPatterns, CPP, MagicHash, RankNTypes, UnboxedTuples #-}
-- Module: Data.Text.Lazy.Builder.Int
--- Copyright: (c) 2011 MailRank, Inc.
+-- Copyright: (c) 2013 Bryan O'Sullivan
+-- (c) 2011 MailRank, Inc.
-- License: BSD3
-- Maintainer: Bryan O'Sullivan <bos@serpentine.com>
-- Stability: experimental
@@ -121,9 +122,9 @@ countDigits :: (Integral a) => a -> Int
{-# INLINE countDigits #-}
countDigits v0 = go 1 (fromIntegral v0 :: Word64)
where go !k v
- | v < 10 = k
- | v < 100 = k + 1
- | v < 1000 = k + 2
+ | v < 10 = k
+ | v < 100 = k + 1
+ | v < 1000 = k + 2
| v < 10000 = k + 3
| otherwise = go (k+4) (v `quot` 10000)
@@ -3,7 +3,8 @@
-----------------------------------------------------------------------------
-- |
-- Module : Data.Text.Lazy.Builder.Internal
--- Copyright : (c) 2010 Johan Tibell
+-- Copyright : (c) 2013 Bryan O'Sullivan
+-- (c) 2010 Johan Tibell
-- License : BSD3-style (see LICENSE)
--
-- Maintainer : Johan Tibell <johan.tibell@gmail.com>
@@ -15,7 +16,9 @@
-- @fromLazyText@, which construct new builders, and 'mappend', which
-- concatenates two builders.
--
--- To get maximum performance when building lazy @Text@ values using a builder, associate @mappend@ calls to the right. For example, prefer
+-- To get maximum performance when building lazy @Text@ values using a
+-- builder, associate @mappend@ calls to the right. For example,
+-- prefer
--
-- > singleton 'a' `mappend` (singleton 'b' `mappend` singleton 'c')
--

0 comments on commit 296d7b9

Please sign in to comment.