217a1ff · text · git.iko.soy

Make Text an instance of IsString

--HG-- extra : convert_revision : 0e1c1c5b88bd9640026ddbaa411bace85b8d066e

commit217a1ff8a796d3a6ae40e79245808848b4e05dff authorBryan O'Sullivan <bos@serpentine.com> dateMon 19 Jan 2009, 10:49 (18 years ago) parentb70ca4c

1 file changed+3−1

unifiedsplit

Data/Text.hs+3−1

@@ -68,6 +68,7 @@ import Data.ByteString(ByteString)

6868import qualified Data.List as L

6969import Data.Monoid(Monoid(..))

7070import Data.Word(Word16)

71+import Data.String (IsString(..))

7172

7273import qualified Data.Text.Fusion as S

7374import Data.Text.Fusion (Stream(..),Step(..),Encoding(..),

@@ -92,7 +93,8 @@ instance Monoid Text where

9293 mappend = append

9394 mconcat = concat

9495

95−

96+instance IsString Text where

97+ fromString = pack

9698

9799-- -----------------------------------------------------------------------------

98100-- * Conversion to/from 'Text'