diff options
-rw-r--r-- | Pipes/Text.hs | 15 |
1 files changed, 10 insertions, 5 deletions
diff --git a/Pipes/Text.hs b/Pipes/Text.hs index de581ad..20c226e 100644 --- a/Pipes/Text.hs +++ b/Pipes/Text.hs | |||
@@ -79,14 +79,19 @@ module Pipes.Text ( | |||
79 | , module Pipes.Group | 79 | , module Pipes.Group |
80 | ) where | 80 | ) where |
81 | 81 | ||
82 | import Control.Applicative ((*>)) | ||
82 | import Control.Monad (liftM, join) | 83 | import Control.Monad (liftM, join) |
84 | import Data.Functor.Constant (Constant(..)) | ||
85 | import Data.Functor.Identity (Identity) | ||
83 | import Control.Monad.Trans.State.Strict (modify) | 86 | import Control.Monad.Trans.State.Strict (modify) |
87 | |||
84 | import qualified Data.Text as T | 88 | import qualified Data.Text as T |
85 | import Data.Text (Text) | 89 | import Data.Text (Text) |
86 | import qualified Data.Text.Lazy as TL | 90 | import qualified Data.Text.Lazy as TL |
87 | import Data.ByteString (ByteString) | 91 | import Data.ByteString (ByteString) |
88 | import Data.Functor.Constant (Constant(Constant, getConstant)) | 92 | import Data.Char (isSpace) |
89 | import Data.Functor.Identity (Identity) | 93 | import Foreign.Storable (sizeOf) |
94 | import Data.Bits (shiftL) | ||
90 | 95 | ||
91 | import Pipes | 96 | import Pipes |
92 | import Pipes.Group (folds, maps, concats, intercalates, FreeT(..), FreeF(..)) | 97 | import Pipes.Group (folds, maps, concats, intercalates, FreeT(..), FreeF(..)) |
@@ -94,9 +99,9 @@ import qualified Pipes.Group as PG | |||
94 | import qualified Pipes.Parse as PP | 99 | import qualified Pipes.Parse as PP |
95 | import Pipes.Parse (Parser) | 100 | import Pipes.Parse (Parser) |
96 | import qualified Pipes.Prelude as P | 101 | import qualified Pipes.Prelude as P |
97 | import Data.Char (isSpace) | 102 | |
98 | import Foreign.Storable (sizeOf) | 103 | |
99 | import Data.Bits (shiftL) | 104 | |
100 | import Prelude hiding ( | 105 | import Prelude hiding ( |
101 | all, | 106 | all, |
102 | any, | 107 | any, |