Digits.hs

{-# LANGUAGE OverloadedStrings #-}

-- Module:      Data.Text.Internal.Builder.Int.Digits
-- Copyright:   (c) 2013 Bryan O'Sullivan
-- License:     BSD-style
-- Maintainer:  Bryan O'Sullivan <bos@serpentine.com>
-- Stability:   experimental
-- Portability: portable
--
-- /Warning/: this is an internal module, and does not have a stable
-- API or name. Functions in this module may not check or enforce
-- preconditions expected by public modules. Use at your own risk!
--
-- This module exists because the C preprocessor does things that we
-- shall not speak of when confronted with Haskell multiline strings.

module Data.Text.Internal.Builder.Int.Digits (digits) where

import Data.ByteString.Char8 (ByteString)

digits :: ByteString
digits = "0001020304050607080910111213141516171819\
         \2021222324252627282930313233343536373839\
         \4041424344454647484950515253545556575859\
         \6061626364656667686970717273747576777879\
         \8081828384858687888990919293949596979899"