@@ -41,6 +41,7 @@ import Data.Text.UnsafeShift (shiftR)
4141import Data.Word (Word16)
4242import Prelude hiding (map, putChar)
4343
44+import qualified Data.String as String
4445import qualified Data.Text as S
4546import qualified Data.Text.Array as A
4647import qualified Data.Text.Lazy as L
@@ -70,6 +71,13 @@ instance Monoid Builder where
7071 mappend = append
7172 {-# INLINE mappend #-}
7273
74+instance String.IsString Builder where
75+ fromString = fromLazyText . L.pack
76+ {-# INLINE fromString #-}
77+
78+instance Show Builder where
79+ show = L.unpack . toLazyText
80+
7381------------------------------------------------------------------------
7482
7583-- | /O(1)./ The empty Builder, satisfying