diff --git a/simple-pipe.cabal b/simple-pipe.cabal
--- a/simple-pipe.cabal
+++ b/simple-pipe.cabal
@@ -2,7 +2,7 @@
 cabal-version:	>= 1.8
 
 name:		simple-pipe
-version:	0.0.0.26
+version:	0.0.0.27
 stability:	Experimental
 author:		Yoshikuni Jujo <PAF01143@nifty.ne.jp>
 maintainer:	Yoshikuni Jujo <PAF01143@nifty.ne.jp>
@@ -80,7 +80,7 @@
 source-repository	this
     type:	git
     location:	git://github.com/YoshikuniJujo/simple-pipe.git
-    tag:	simple-pipe-0.0.0.26
+    tag:	simple-pipe-0.0.0.27
 
 library
     hs-source-dirs:	src
diff --git a/src/Data/Pipe.hs b/src/Data/Pipe.hs
--- a/src/Data/Pipe.hs
+++ b/src/Data/Pipe.hs
@@ -2,7 +2,7 @@
 	PackageImports #-}
 
 module Data.Pipe (
-	PipeClass(..), PipeChoice(..), (=@=), convert,
+	PipeClass(..), PipeChoice(..), (=@=), runPipe_, convert,
 	Pipe, finally, bracket ) where
 
 import Control.Applicative
@@ -32,6 +32,9 @@
 	mapIn :: Monad m => (i' -> i) -> p i o m r -> p i' o m r
 
 	p `finalize` f = p `onBreak` f `onDone` f
+
+runPipe_ :: (PipeClass p, Monad m) => p i o m r -> m ()
+runPipe_ = (>> return ()) . runPipe
 
 convert :: (PipeClass p, Monad m, Monad (p a b m)) => (a -> b) -> p a b m ()
 convert f = await >>= maybe (return ()) ((>> convert f) . yield . f)