diff --git a/CHANGELOG.md b/CHANGELOG.md
new file mode 100644
--- /dev/null
+++ b/CHANGELOG.md
@@ -0,0 +1,3 @@
+# 0.1.0.0
+
+* Initial commit
diff --git a/LICENSE b/LICENSE
new file mode 100644
--- /dev/null
+++ b/LICENSE
@@ -0,0 +1,30 @@
+Copyright (c) 2014, Ryan Scott
+
+All rights reserved.
+
+Redistribution and use in source and binary forms, with or without
+modification, are permitted provided that the following conditions are met:
+
+    * Redistributions of source code must retain the above copyright
+      notice, this list of conditions and the following disclaimer.
+
+    * Redistributions in binary form must reproduce the above
+      copyright notice, this list of conditions and the following
+      disclaimer in the documentation and/or other materials provided
+      with the distribution.
+
+    * Neither the name of Ryan Scott nor the names of other
+      contributors may be used to endorse or promote products derived
+      from this software without specific prior written permission.
+
+THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
+"AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
+LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR
+A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT
+OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
+SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT
+LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
+DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
+THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
+(INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE
+OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
diff --git a/README.md b/README.md
new file mode 100644
--- /dev/null
+++ b/README.md
@@ -0,0 +1,3 @@
+# `text-show` [![Build Status](https://travis-ci.org/RyanGlScott/text-show.svg)](https://travis-ci.org/RyanGlScott/text-show)
+
+Efficient conversion of values into [`Text`](https://github.com/bos/text), in the spirit of [`bytestring-show`](http://hackage.haskell.org/package/bytestring-show).
diff --git a/Setup.hs b/Setup.hs
new file mode 100644
--- /dev/null
+++ b/Setup.hs
@@ -0,0 +1,2 @@
+import Distribution.Simple
+main = defaultMain
diff --git a/src/Text/Show/Text.hs b/src/Text/Show/Text.hs
new file mode 100644
--- /dev/null
+++ b/src/Text/Show/Text.hs
@@ -0,0 +1,489 @@
+{-# LANGUAGE OverloadedStrings #-}
+-----------------------------------------------------------------------------
+-- |
+-- Module      :  Text.Show.Text
+-- Copyright   :  (C) 2014 Ryan Scott
+-- License     :  BSD-style (see the file LICENSE)
+-- Maintainer  :  Ryan Scott
+-- Stability   :  Experimental
+-- Portability :  GHC
+-- 
+-- Efficiently convert from values to 'Text' via 'Builder's.
+----------------------------------------------------------------------------
+module Text.Show.Text (
+      -- * The 'Show' class
+      Show (..)
+    , show
+      -- * 'Builder' construction
+    , showbParen
+    , showbLitChar
+    , unlinesB
+    , unwordsB
+      -- * Printing values
+    , print
+    ) where
+
+import           Data.Array (Array, (!), assocs, bounds, listArray)
+import           Data.Char (ord)
+import           Data.Int (Int8, Int16, Int32, Int64)
+import           Data.Ix (Ix)
+import           Data.Complex (Complex(..))
+import qualified Data.Map as M
+import           Data.Map (Map)
+import           Data.Monoid (Monoid(mempty), (<>))
+import           Data.Ratio (Ratio, numerator, denominator)
+import qualified Data.Set as S
+import           Data.Set (Set)
+import           Data.Text (Text)
+import           Data.Text.Buildable (build)
+import           Data.Text.IO (putStrLn)
+import           Data.Text.Lazy (toStrict)
+import           Data.Text.Lazy.Builder (Builder, singleton, toLazyText)
+import           Data.Text.Lazy.Builder.RealFloat (realFloat)
+import           Data.Word (Word, Word8, Word16, Word32, Word64)
+
+import           Foreign.Ptr (Ptr, IntPtr, WordPtr)
+
+import           Prelude hiding (Show(..), print, putStrLn)
+
+-- | Conversion of values to 'Text'.
+class Show a where
+    -- |
+    -- Constructs a 'Text' via an efficient 'Builder'. The precedence is used to 
+    -- determine where to put parentheses in a shown expression involving operators.
+    -- 
+    -- 'Builder's can be efficiently combined, so the @showb@ functions are available
+    -- for showing multiple values before producing an output 'Text'.
+    showbPrec :: Int -> a -> Builder
+    
+    -- |
+    -- Constructs a 'Text' via an efficient 'Builder'. 'Builder's can be efficiently
+    -- combined, so this is available building a 'Text' from multiple values.
+    showb :: a -> Builder
+    
+    -- |
+    -- Allows for specialized display of lists. This is used, for example, when
+    -- showing lists of 'Char's.
+    showbList :: [a] -> Builder
+    
+    showbPrec _ = showb
+    
+    showb = showbPrec 0
+    
+    showbList []     = "[]"
+    showbList (x:xs) = s '[' <> showb x <> go xs -- "[..
+      where
+        go (y:ys) = s ',' <> showb y <> go ys    -- ..,..
+        go []     = s ']'                        -- ..]"
+    {-# MINIMAL showbPrec | showb #-}
+
+-- | Constructs a 'Text' from a single value.
+show :: Show a => a -> Text
+show = toStrict . toLazyText . showb
+{-# INLINE show #-}
+
+-- | Surrounds 'Builder' output with parentheses if the 'Bool' parameter is 'True'.
+showbParen :: Bool -> Builder -> Builder
+showbParen p builder | p         = s '(' <> builder <> s ')'
+                     | otherwise = builder
+{-# INLINE showbParen #-}
+
+-- | Prints a value's 'Text' representation to the standard output.
+print :: Show a => a -> IO ()
+print = putStrLn . show
+{-# INLINE print #-}
+
+-- | Merges several 'Builder's, separating them by newlines.
+unlinesB :: [Builder] -> Builder
+unlinesB (b:bs) = b <> s '\n' <> unlinesB bs
+unlinesB []     = mempty
+
+-- | Merges several 'Builder's, separating them by spaces.
+unwordsB :: [Builder] -> Builder
+unwordsB (b:bs@(_:_)) = b <> s ' ' <> unwordsB bs
+unwordsB [b]          = b
+unwordsB []           = mempty
+
+-- | A table of ASCII control characters that needs to be escaped with a backslash.
+asciiTabB :: Array Int Builder
+asciiTabB = listArray (0, 32) ["NUL", "SOH", "STX", "ETX", "EOT", "ENQ", "ACK", "BEL",
+                              "BS",  "HT",  "LF",  "VT",  "FF",  "CR",  "SO",  "SI",
+                              "DLE", "DC1", "DC2", "DC3", "DC4", "NAK", "SYN", "ETB",
+                              "CAN", "EM",  "SUB", "ESC", "FS",  "GS",  "RS",  "US",
+                              "SP"]
+
+-- | Constructs a 'Builder' with one character (without single quotes).
+showbLitChar :: Char -> Builder
+showbLitChar c | c > '\DEL' = s '\\' <> showb (ord c)
+showbLitChar '\DEL'         = "\\DEL"
+showbLitChar '\\'           = "\\\\"
+showbLitChar c | c >= ' '   = s c
+showbLitChar '\a'           = "\\a"
+showbLitChar '\b'           = "\\b"
+showbLitChar '\f'           = "\\f"
+showbLitChar '\n'           = "\\n"
+showbLitChar '\r'           = "\\r"
+showbLitChar '\t'           = "\\t"
+showbLitChar '\v'           = "\\v"
+showbLitChar '\SO'          = "\\S0"
+showbLitChar c              = s '\\' <> (asciiTabB ! ord c)
+{-# INLINE showbLitChar #-}
+
+-- |
+-- A shorter name for 'singleton' for convenience's sake (since it tends to be used
+-- pretty often in @text-show@).
+s :: Char -> Builder
+s = singleton
+{-# INLINE s #-}
+
+instance Show Builder where
+    showb = id
+
+instance Show () where
+    showb () = "()"
+
+instance Show Char where
+    showb '\'' = "'\\''"
+    showb c    = s '\'' <> showbLitChar c <> s '\''
+    {-# INLINE showb #-}
+    
+    showbList = build
+    {-# INLINE showbList #-}
+
+instance Show Bool where
+    showb True  = "True"
+    showb False = "False"
+
+instance Show a => Show [a] where
+    showb = showbList
+    {-# INLINE showb #-}
+
+instance Show Int where
+    showb = build
+    {-# INLINE showb #-}
+    
+    showbPrec k i = showbParen (i < 0 && k > 0) $ build i
+    {-# INLINE showbPrec #-}
+
+instance Show Int8 where
+    showb = build
+    {-# INLINE showb #-}
+    
+    showbPrec k i = showbParen (i < 0 && k > 0) $ build i
+    {-# INLINE showbPrec #-}
+
+instance Show Int16 where
+    showb = build
+    {-# INLINE showb #-}
+    
+    showbPrec k i = showbParen (i < 0 && k > 0) $ build i
+    {-# INLINE showbPrec #-}
+
+instance Show Int32 where
+    showb = build
+    {-# INLINE showb #-}
+    
+    showbPrec k i = showbParen (i < 0 && k > 0) $ build i
+    {-# INLINE showbPrec #-}
+
+instance Show Int64 where
+    showb = build
+    {-# INLINE showb #-}
+    
+    showbPrec k i = showbParen (i < 0 && k > 0) $ build i
+    {-# INLINE showbPrec #-}
+
+instance Show Integer where
+    showb = build
+    {-# INLINE showb #-}
+    
+    showbPrec k i = showbParen (i < 0 && k > 0) $ build i
+    {-# INLINE showbPrec #-}
+
+instance Show Word where
+    showb = build
+    {-# INLINE showb #-}
+
+instance Show Word8 where
+    showb = build
+    {-# INLINE showb #-}
+
+instance Show Word16 where
+    showb = build
+    {-# INLINE showb #-}
+
+instance Show Word32 where
+    showb = build
+    {-# INLINE showb #-}
+
+instance Show Word64 where
+    showb = build
+    {-# INLINE showb #-}
+
+instance Show Float where
+    showb = realFloat
+    {-# INLINE showb #-}
+    
+    showbPrec k f = showbParen (f < 0 && k > 0) $ realFloat f
+    {-# INLINE showbPrec #-}
+
+instance Show Double where
+    showb = realFloat
+    {-# INLINE showb #-}
+    
+    showbPrec k f = showbParen (f < 0 && k > 0) $ realFloat f
+    {-# INLINE showbPrec #-}
+
+instance (Show a, Integral a) => Show (Ratio a) where
+    {-# SPECIALIZE instance Show Rational #-}
+    showbPrec k q = showbParen (k > 7) $ showbPrec 8 (numerator q) <>
+                    s '%' <> showb (denominator q)
+
+instance (Show a, RealFloat a) => Show (Complex a) where
+    {-# SPECIALIZE instance Show (Complex Float) #-}
+    {-# SPECIALIZE instance Show (Complex Double) #-}
+    showbPrec k (a :+ b) = showbParen (k > 6) $ showbPrec 7 a <> " :+ " <> showbPrec 7 b
+
+instance Show a => Show (Maybe a) where
+    showbPrec _ Nothing  = "Nothing"
+    showbPrec k (Just a) = showbParen (k > 10) $ "Just " <> showbPrec 11 a
+    {-# INLINE showbPrec #-}
+
+instance (Show a, Show b) => Show (Either a b) where
+    showbPrec k (Left a)  = showbParen (k > 10) $ "Left " <> showbPrec 11 a
+    showbPrec k (Right b) = showbParen (k > 10) $ "Right " <> showbPrec 11 b
+
+instance Show Ordering where
+    showb LT = "LT"
+    showb EQ = "EQ"
+    showb GT = "GT"
+
+instance (Show a, Show b) => Show (a, b) where
+    showb (a, b) =
+      s '(' <> showb a <>
+      s ',' <> showb b <>
+      s ')'
+    {-# INLINE showb #-}
+
+instance (Show a, Show b, Show c) => Show (a, b, c) where
+    showb (a, b, c) =
+      s '(' <> showb a <>
+      s ',' <> showb b <>
+      s ',' <> showb c <>
+      s ')'
+    {-# INLINE showb #-}
+
+instance (Show a, Show b, Show c, Show d) => Show (a, b, c, d) where
+    showb (a, b, c, d) =
+      s '(' <> showb a <>
+      s ',' <> showb b <>
+      s ',' <> showb c <>
+      s ',' <> showb d <>
+      s ')'
+    {-# INLINE showb #-}
+
+instance (Show a, Show b, Show c, Show d, Show e) => Show (a, b, c, d, e) where
+    showb (a, b, c, d, e) =
+      s '(' <> showb a <>
+      s ',' <> showb b <>
+      s ',' <> showb c <>
+      s ',' <> showb d <>
+      s ',' <> showb e <>
+      s ')'
+    {-# INLINE showb #-}
+
+instance (Show a, Show b, Show c, Show d, Show e, Show f) => Show (a, b, c, d, e, f) where
+    showb (a, b, c, d, e, f) =
+      s '(' <> showb a <>
+      s ',' <> showb b <>
+      s ',' <> showb c <>
+      s ',' <> showb d <>
+      s ',' <> showb e <>
+      s ',' <> showb f <>
+      s ')'
+    {-# INLINE showb #-}
+
+instance (Show a, Show b, Show c, Show d, Show e, Show f, Show g) =>
+  Show (a, b, c, d, e, f, g) where
+    showb (a, b, c, d, e, f, g) =
+      s '(' <> showb a <>
+      s ',' <> showb b <>
+      s ',' <> showb c <>
+      s ',' <> showb d <>
+      s ',' <> showb e <>
+      s ',' <> showb f <>
+      s ',' <> showb g <>
+      s ')'
+    {-# INLINE showb #-}
+
+instance (Show a, Show b, Show c, Show d, Show e, Show f, Show g, Show h) =>
+  Show (a, b, c, d, e, f, g, h) where
+    showb (a, b, c, d, e, f, g, h) =
+      s '(' <> showb a <>
+      s ',' <> showb b <>
+      s ',' <> showb c <>
+      s ',' <> showb d <>
+      s ',' <> showb e <>
+      s ',' <> showb f <>
+      s ',' <> showb g <>
+      s ',' <> showb h <>
+      s ')'
+    {-# INLINE showb #-}
+
+instance (Show a, Show b, Show c, Show d, Show e, Show f, Show g, Show h, Show i) =>
+  Show (a, b, c, d, e, f, g, h, i) where
+    showb (a, b, c, d, e, f, g, h, i) =
+      s '(' <> showb a <>
+      s ',' <> showb b <>
+      s ',' <> showb c <>
+      s ',' <> showb d <>
+      s ',' <> showb e <>
+      s ',' <> showb f <>
+      s ',' <> showb g <>
+      s ',' <> showb h <>
+      s ',' <> showb i <>
+      s ')'
+    {-# INLINE showb #-}
+
+instance (Show a, Show b, Show c, Show d, Show e, Show f, Show g, Show h, Show i, Show j) =>
+  Show (a, b, c, d, e, f, g, h, i, j) where
+    showb (a, b, c, d, e, f, g, h, i, j) =
+      s '(' <> showb a <>
+      s ',' <> showb b <>
+      s ',' <> showb c <>
+      s ',' <> showb d <>
+      s ',' <> showb e <>
+      s ',' <> showb f <>
+      s ',' <> showb g <>
+      s ',' <> showb h <>
+      s ',' <> showb i <>
+      s ',' <> showb j <>
+      s ')'
+    {-# INLINE showb #-}
+
+instance (Show a, Show b, Show c, Show d, Show e, Show f,
+          Show g, Show h, Show i, Show j, Show k) =>
+  Show (a, b, c, d, e, f, g, h, i, j, k) where
+    showb (a, b, c, d, e, f, g, h, i, j, k) =
+      s '(' <> showb a <>
+      s ',' <> showb b <>
+      s ',' <> showb c <>
+      s ',' <> showb d <>
+      s ',' <> showb e <>
+      s ',' <> showb f <>
+      s ',' <> showb g <>
+      s ',' <> showb h <>
+      s ',' <> showb i <>
+      s ',' <> showb j <>
+      s ',' <> showb k <>
+      s ')'
+    {-# INLINE showb #-}
+
+instance (Show a, Show b, Show c, Show d, Show e, Show f,
+          Show g, Show h, Show i, Show j, Show k, Show l) =>
+  Show (a, b, c, d, e, f, g, h, i, j, k, l) where
+    showb (a, b, c, d, e, f, g, h, i, j, k, l) =
+      s '(' <> showb a <>
+      s ',' <> showb b <>
+      s ',' <> showb c <>
+      s ',' <> showb d <>
+      s ',' <> showb e <>
+      s ',' <> showb f <>
+      s ',' <> showb g <>
+      s ',' <> showb h <>
+      s ',' <> showb i <>
+      s ',' <> showb j <>
+      s ',' <> showb k <>
+      s ',' <> showb l <>
+      s ')'
+    {-# INLINE showb #-}
+
+instance (Show a, Show b, Show c, Show d, Show e, Show f, Show g,
+          Show h, Show i, Show j, Show k, Show l, Show m) =>
+  Show (a, b, c, d, e, f, g, h, i, j, k, l, m) where
+    showb (a, b, c, d, e, f, g, h, i, j, k, l, m) =
+      s '(' <> showb a <>
+      s ',' <> showb b <>
+      s ',' <> showb c <>
+      s ',' <> showb d <>
+      s ',' <> showb e <>
+      s ',' <> showb f <>
+      s ',' <> showb g <>
+      s ',' <> showb h <>
+      s ',' <> showb i <>
+      s ',' <> showb j <>
+      s ',' <> showb k <>
+      s ',' <> showb l <>
+      s ',' <> showb m <>
+      s ')'
+    {-# INLINE showb #-}
+
+instance (Show a, Show b, Show c, Show d, Show e, Show f, Show g,
+          Show h, Show i, Show j, Show k, Show l, Show m, Show n) =>
+  Show (a, b, c, d, e, f, g, h, i, j, k, l, m, n) where
+    showb (a, b, c, d, e, f, g, h, i, j, k, l, m, n) =
+      s '(' <> showb a <>
+      s ',' <> showb b <>
+      s ',' <> showb c <>
+      s ',' <> showb d <>
+      s ',' <> showb e <>
+      s ',' <> showb f <>
+      s ',' <> showb g <>
+      s ',' <> showb h <>
+      s ',' <> showb i <>
+      s ',' <> showb j <>
+      s ',' <> showb k <>
+      s ',' <> showb l <>
+      s ',' <> showb m <>
+      s ',' <> showb n <>
+      s ')'
+    {-# INLINE showb #-}
+
+instance (Show a, Show b, Show c, Show d, Show e, Show f, Show g, Show h,
+          Show i, Show j, Show k, Show l, Show m, Show n, Show o) =>
+  Show (a, b, c, d, e, f, g, h, i, j, k, l, m, n, o) where
+    showb (a, b, c, d, e, f, g, h, i, j, k, l, m, n, o) =
+      s '(' <> showb a <>
+      s ',' <> showb b <>
+      s ',' <> showb c <>
+      s ',' <> showb d <>
+      s ',' <> showb e <>
+      s ',' <> showb f <>
+      s ',' <> showb g <>
+      s ',' <> showb h <>
+      s ',' <> showb i <>
+      s ',' <> showb j <>
+      s ',' <> showb k <>
+      s ',' <> showb l <>
+      s ',' <> showb m <>
+      s ',' <> showb n <>
+      s ',' <> showb o <>
+      s ')'
+    {-# INLINE showb #-}
+
+instance (Show i, Show e, Ix i) => Show (Array i e) where
+    showbPrec k a = showbParen (k > 10) $ "array " <>
+                    showb (bounds a) <> s ' ' <> showb (assocs a)
+    {-# INLINE showb #-}
+
+instance (Show k, Show v) => Show (Map k v) where
+    showbPrec k m = showbParen (k > 10) $ "fromList " <>
+                    showb (M.toList m)
+    {-# INLINE showb #-}
+
+instance Show e => Show (Set e) where
+    showbPrec k set = showbParen (k > 10) $ "fromList " <>
+                      showb (S.toList set)
+    {-# INLINE showb #-}
+
+instance Show IntPtr where
+    showb = build
+    {-# INLINE showb #-}
+
+instance Show WordPtr where
+    showb = build
+    {-# INLINE showb #-}
+
+instance Show (Ptr a) where
+    showb = build
+    {-# INLINE showb #-}
diff --git a/tests/Properties.hs b/tests/Properties.hs
new file mode 100644
--- /dev/null
+++ b/tests/Properties.hs
@@ -0,0 +1,51 @@
+{-# OPTIONS_GHC -fno-warn-orphans #-}
+module Main where
+
+import           Data.Complex
+import           Data.Int
+import           Data.Ratio
+import qualified Data.Text as T
+import           Data.Text.Lazy.Builder
+import           Data.Word
+
+import qualified Prelude as P
+import           Prelude hiding (Show(..))
+
+import           Test.QuickCheck
+
+import qualified Text.Show.Text as T
+
+prop_matchesShow :: (P.Show a, T.Show a, Arbitrary a) => a -> Bool
+prop_matchesShow x = P.show x == T.unpack (T.show x)
+
+instance Arbitrary Builder where
+    arbitrary = fmap fromString arbitrary
+
+main :: IO ()
+main = do
+    quickCheck (prop_matchesShow :: Bool                               -> Bool)
+    quickCheck (prop_matchesShow :: Char                               -> Bool)
+    quickCheck (prop_matchesShow :: Float                              -> Bool)
+    quickCheck (prop_matchesShow :: Double                             -> Bool)
+    quickCheck (prop_matchesShow :: Int                                -> Bool)
+    quickCheck (prop_matchesShow :: Int8                               -> Bool)
+    quickCheck (prop_matchesShow :: Int16                              -> Bool)
+    quickCheck (prop_matchesShow :: Int32                              -> Bool)
+    quickCheck (prop_matchesShow :: Int64                              -> Bool)
+    quickCheck (prop_matchesShow :: Integer                            -> Bool)
+    quickCheck (prop_matchesShow :: Ordering                           -> Bool)
+    quickCheck (prop_matchesShow :: Word                               -> Bool)
+    quickCheck (prop_matchesShow :: Word8                              -> Bool)
+    quickCheck (prop_matchesShow :: Word16                             -> Bool)
+    quickCheck (prop_matchesShow :: Word32                             -> Bool)
+    quickCheck (prop_matchesShow :: Word64                             -> Bool)
+    quickCheck (prop_matchesShow :: ()                                 -> Bool)
+    quickCheck (prop_matchesShow :: Builder                            -> Bool)
+    quickCheck (prop_matchesShow :: String                             -> Bool)
+    quickCheck (prop_matchesShow :: [Int]                              -> Bool)
+    quickCheck (prop_matchesShow :: Ratio Int                          -> Bool)
+    quickCheck (prop_matchesShow :: Complex Double                     -> Bool)
+    quickCheck (prop_matchesShow :: (Int, Double)                      -> Bool)
+    quickCheck (prop_matchesShow :: (Int, Double, Char)                -> Bool)
+    quickCheck (prop_matchesShow :: (Int, Double, Char, String)        -> Bool)
+    quickCheck (prop_matchesShow :: (Int, Double, Char, String, [Int]) -> Bool)
diff --git a/text-show.cabal b/text-show.cabal
new file mode 100644
--- /dev/null
+++ b/text-show.cabal
@@ -0,0 +1,47 @@
+name:                text-show
+version:             0.1.0.0
+synopsis:            Efficient conversion of values into Text
+description:         @text-show@ offers a complete drop-in replacement of the @Show@
+                     typeclass, but for @Text@ instead of @String@. This package was
+                     created in the spirit of
+                     @<http://hackage.haskell.org/package/bytestring-show bytestring-show>@.
+homepage:            https://github.com/RyanGlScott/text-show
+bug-reports:         https://github.com/RyanGlScott/text-show/issues
+license:             BSD3
+license-file:        LICENSE
+author:              Ryan Scott
+maintainer:          Ryan Scott <ryan.gl.scott@ku.edu>
+stability:           Experimental
+-- copyright:           
+category:            Text
+build-type:          Simple
+extra-source-files:  CHANGELOG.md, README.md
+cabal-version:       >=1.8
+
+source-repository head
+  type:                git
+  location:            git://github.com/RyanGlScott/text-show.git
+
+flag integer-simple
+  description:         Use with integer-simple build of GHC
+  default:             False
+
+library
+  exposed-modules:     Text.Show.Text
+  build-depends:       array       >= 0.3
+                     , base        >= 4.2 && < 5
+                     , containers            < 0.6
+                     , text        >= 0.2 && < 1.3
+                     , text-format >= 0.2 && < 0.4
+  hs-source-dirs:      src
+  ghc-options:         -Wall
+
+test-suite properties
+  type:                exitcode-stdio-1.0
+  main-is:             Properties.hs
+  hs-source-dirs:      tests
+  build-depends:       base       >= 4.2 && < 5
+                     , QuickCheck >= 2.4 && < 2.8
+                     , text       >= 0.2 && < 1.3
+                     , text-show  == 0.1.0.0
+  ghc-options:         -Wall