1. Bryan O'Sullivan
  2. text

Commits

Bryan O'Sullivan  committed d9feb9c

Fix uses of errorEmptyList to have correct module names

  • Participants
  • Parent commits 1a6a6e6
  • Branches default

Comments (0)

Files changed (2)

File Data/Text.hs

View file
  • Ignore whitespace
     ) where
 
 import Prelude (Char,Bool,Int,Maybe,String,
-                Eq,(==),
+                Eq,(==),(++),error,
                 Show,showsPrec,
                 Read,readsPrec,
                 (&&),(||),(+),(-),($),(<),(>),(<=),(>=),(.),(>>=),
 
 import qualified Data.Text.Fusion as S
 import Data.Text.Fusion (Stream(..),Step(..),Encoding(..),
-                    stream,unstream,stream_bs,unstream_bs,restream,
-                    errorEmptyList)
+                    stream,unstream,stream_bs,unstream_bs,restream)
 import Data.Text.Internal(Text(..),empty)
 import qualified Prelude as P
 import Data.Text.UnsafeChar(unsafeChr)
             where
               c = arr `unsafeAt` n
 {-# INLINE words #-}
+
+errorEmptyList :: String -> a
+errorEmptyList fun = error ("Data.Text." ++ fun ++ ": empty list")

File Data/Text/Fusion.hs

View file
  • Ignore whitespace
     , stream_bs
     , unstream_bs
     , restream
-    , errorEmptyList
     , eq
     , cons
     , snoc
 {-# INLINE [0] zipWith #-}
 
 errorEmptyList :: String -> a
-errorEmptyList fun =
-  error ("Prelude." ++ fun ++ ": empty list")
+errorEmptyList fun = error ("Data.Text.Fusion." ++ fun ++ ": empty list")