git.iko.soy/text
on master help sign in
Add Show and IsString instances for Builder convenience.
1a556e4Bryan O'Sullivan
Data/Text/Lazy/Builder.hs+8
compare with master
unifiedsplit
@@ -41,6 +41,7 @@ import Data.Text.UnsafeShift (shiftR)
41import Data.Word (Word16)
41import Data.Word (Word16)
42import Prelude hiding (map, putChar)
42import Prelude hiding (map, putChar)
43
43
44+import qualified Data.String as String
44import qualified Data.Text as S
45import qualified Data.Text as S
45import qualified Data.Text.Array as A
46import qualified Data.Text.Array as A
46import qualified Data.Text.Lazy as L
47import qualified Data.Text.Lazy as L
@@ -70,6 +71,13 @@ instance Monoid Builder where
70 mappend = append
71 mappend = append
71 {-# INLINE mappend #-}
72 {-# INLINE mappend #-}
72
73
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+
73------------------------------------------------------------------------
81------------------------------------------------------------------------
74
82
75-- | /O(1)./ The empty Builder, satisfying
83-- | /O(1)./ The empty Builder, satisfying