f81a471 · text · git.iko.soy

git.iko.soy/text

Fix uses of errorEmptyList to have correct module names

--HG-- extra : convert_revision : bbfcaed4006f65332a8e1828ddcdbd7861bde49a

commitf81a471e7e960d5577e3c7083b45b5a0b7cf013a authorBryan O'Sullivan <bos@serpentine.com> dateMon 19 Jan 2009, 12:47 (18 years ago) parent571b1e7

2 files changed+6−6

compare with master

unifiedsplit

Data/Text.hs+5−3 Data/Text/Fusion.hs+1−3

Data/Text.hs+5−3

@@ -52,7 +52,7 @@ module Data.Text

5252 ) where

5353

5454import Prelude (Char,Bool,Int,Maybe,String,

55− Eq,(==),

55+ Eq,(==),(++),error,

5656 Show,showsPrec,

5757 Read,readsPrec,

5858 (&&),(||),(+),(-),($),(<),(>),(<=),(>=),(.),(>>=),

@@ -72,8 +72,7 @@ import Data.String (IsString(..))

7272

7373import qualified Data.Text.Fusion as S

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

75− stream,unstream,stream_bs,unstream_bs,restream,

76− errorEmptyList)

75+ stream,unstream,stream_bs,unstream_bs,restream)

7776import Data.Text.Internal(Text(..),empty)

7877import qualified Prelude as P

7978import Data.Text.UnsafeChar(unsafeChr)

@@ -525,3 +524,6 @@ words (Text arr off len) = loop0 off off

525524 where

526525 c = arr `unsafeAt` n

527526{-# INLINE words #-}

527+

528+errorEmptyList :: String -> a

529+errorEmptyList fun = error ("Data.Text." ++ fun ++ ": empty list")

Data/Text/Fusion.hs+1−3

@@ -10,7 +10,6 @@ module Data.Text.Fusion

1010 , stream_bs

1111 , unstream_bs

1212 , restream

13− , errorEmptyList

1413 , eq

1514 , cons

1615 , snoc

@@ -939,5 +938,4 @@ zipWith f (Stream next0 sa0 len1) (Stream next1 sb0 len2) = Stream next (sa0 :!:

939938{-# INLINE [0] zipWith #-}

940939

941940errorEmptyList :: String -> a

942−errorEmptyList fun =

943− error ("Prelude." ++ fun ++ ": empty list")

941+errorEmptyList fun = error ("Data.Text.Fusion." ++ fun ++ ": empty list")