1 files changed, 2 insertions, 2 deletions

diff --git a/Pipes/Text.hs b/Pipes/Text.hs
index b90948f..575c987 100644
--- a/Pipes/Text.hs
+++ b/Pipes/Text.hs
@@ -290,7 +290,7 @@ unpack = for cat (\t -> yield (T.unpack t))
 
 -- | @toCaseFold@, @toLower@, @toUpper@ and @stripStart@ are standard 'Text' utilities, 
 -- here acting as 'Text' pipes, rather as they would  on a lazy text
-toCaseFold :: Monad m => Pipe Text Text m ()
+toCaseFold :: Monad m => Pipe Text Text m r
 toCaseFold = P.map T.toCaseFold
 {-# INLINEABLE toCaseFold #-}
 
@@ -300,7 +300,7 @@ toCaseFold = P.map T.toCaseFold
 
 
 -- | lowercase incoming 'Text'
-toLower :: Monad m => Pipe Text Text m ()
+toLower :: Monad m => Pipe Text Text m r
 toLower = P.map T.toLower
 {-# INLINEABLE toLower #-}