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.6
+version:	0.0.0.7
 stability:	Experimental
 author:		Yoshikuni Jujo <PAF01143@nifty.ne.jp>
 maintainer:	Yoshikuni Jujo <PAF01143@nifty.ne.jp>
@@ -87,7 +87,7 @@
 source-repository	this
     type:	git
     location:	git://github.com/YoshikuniJujo/forest.git
-    tag:	simple-pipe-0.0.0.6
+    tag:	simple-pipe-0.0.0.7
 
 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
@@ -38,13 +38,13 @@
 	runPipe (Make _ m) = runPipe =<< m
 	runPipe _ = return Nothing
 
+	p =$= Make f m = Make f $ (p =$=) `liftM` m
 	p =$= Done f r = Done (finalizer p >> f) r
 	p =$= Ready f o p' = Ready f o $ p =$= p'
 	Need f n =$= p = Need f $ \i -> n i =$= p
 	Ready _ o p =$= Need _ n = p =$= n (Just o)
 	Done f r =$= Need f' n =
 		Done (return ()) r =$= Make f' (f >> return (n Nothing))
-	p =$= Make f m = Make f $ (p =$=) `liftM` m
 	Make f m =$= p = Make f $ (=$= p) `liftM` m
 
 	yield x = Ready (return ()) x (return ())