Add array fusion versions of map, filter and foldl

[haskell-directory.git] / Data / ByteString / Char8.hs

diff --git a/Data/ByteString/Char8.hs b/Data/ByteString/Char8.hs
index 530dda8..24190db 100644 (file)
--- a/Data/ByteString/Char8.hs
+++ b/Data/ByteString/Char8.hs
@@ -215,6 +215,14 @@ module Data.ByteString.Char8 (
         unsafePackAddress,      -- :: Int -> Addr# -> ByteString
 #endif
 
+        -- * Utilities (needed for array fusion)
+#if defined(__GLASGOW_HASKELL__)
+        unpackList,
+#endif
+        noAL, NoAL, loopArr, loopAcc, loopSndAcc,
+        loopU, mapEFL, filterEFL,
+        filterF, mapF
+
     ) where
 
 import qualified Prelude as P
@@ -243,7 +251,10 @@ import Data.ByteString (ByteString(..)
 #if defined(__GLASGOW_HASKELL__)
                        ,getLine, getArgs, hGetLine, hGetNonBlocking
                        ,packAddress, unsafePackAddress
+                       ,unpackList
 #endif
+                       ,noAL, NoAL, loopArr, loopAcc, loopSndAcc
+                       ,loopU, mapEFL, filterEFL, filterF, mapF
                        ,useAsCString, unsafeUseAsCString
                        )