tutorial nonsense

[github/fretlink/text-pipes.git] / Pipes / Text / IO.hs

diff --git a/Pipes/Text/IO.hs b/Pipes/Text/IO.hs
index de49c7b9487927d5c4eeea629387d281652a4a7b..4a092b1e1aea6516c61b7a66d354b20909f11742 100644 (file)
--- a/Pipes/Text/IO.hs
+++ b/Pipes/Text/IO.hs
@@ -169,9 +169,6 @@ toHandle :: MonadIO m => IO.Handle -> Consumer' Text m r
 toHandle h = for cat (liftIO . T.hPutStr h)
 {-# INLINABLE toHandle #-}
 
-{-# RULES "p >-> toHandle h" forall p h .
-        p >-> toHandle h = for p (\txt -> liftIO (T.hPutStr h txt))
-  #-}
 
 
 -- | Stream text into a file. Uses @pipes-safe@.