diff --git a/src/Control/Monad/Yaftee/Pipe/ByteString/FingerTree/OnDemand.hs b/src/Control/Monad/Yaftee/Pipe/ByteString/FingerTree/OnDemand.hs
--- a/src/Control/Monad/Yaftee/Pipe/ByteString/FingerTree/OnDemand.hs
+++ b/src/Control/Monad/Yaftee/Pipe/ByteString/FingerTree/OnDemand.hs
@@ -53,6 +53,9 @@
 	RequestPushBack bs ->
 		State.modifyN nm (ByteString . (bs `BSF.append`) . unByteString) >>
 		Pipe.yield "" >> go
+	RequestFlush ->
+		State.putN nm (ByteString BSF.empty) >>
+		Pipe.yield "" >> go
 	where
 	errne :: String
 	errne = "Not enough ByteString"
@@ -74,6 +77,7 @@
 	| RequestBuffer Int
 	| RequestString
 	| RequestPushBack BSF.ByteString
+	| RequestFlush
 	deriving Show
 
 newtype ByteString = ByteString { unByteString :: BSF.ByteString } deriving Show
diff --git a/yaftee-conduit-bytestring-ft.cabal b/yaftee-conduit-bytestring-ft.cabal
--- a/yaftee-conduit-bytestring-ft.cabal
+++ b/yaftee-conduit-bytestring-ft.cabal
@@ -5,7 +5,7 @@
 -- see: https://github.com/sol/hpack
 
 name:           yaftee-conduit-bytestring-ft
-version:        0.1.0.0
+version:        0.1.0.1
 synopsis:       Finger tree-based byte string tools for Yaftee Conduit
 description:    Please see the README on GitHub at <https://github.com/YoshikuniJujo/yaftee-conduit-bytestring-ft#readme>
 category:       Control