~ Add stub for flush operation.

1 files changed, 8 insertions, 1 deletions

diff --git a/src/System/Torrent/Storage.hs b/src/System/Torrent/Storage.hs
index 46ea20f1..c33be89c 100644
--- a/src/System/Torrent/Storage.hs
+++ b/src/System/Torrent/Storage.hs
@@ -29,7 +29,9 @@ module System.Torrent.Storage
 
          -- * TODO expose only File interface!
          -- * File interface
-       , FD, openFD, closeFD, readFD, writeFD
+       , FD
+       , openFD, flushFD, closeFD
+       , readFD, writeFD
        ) where
 
 import Control.Applicative
@@ -244,6 +246,11 @@ openFD path nonblock Storage {..}
   = return $ Right $ FD bs nonblock
   | otherwise = return $ Left $ eNOENT
 
+-- | Cancel all enqueued read operations and report any delayed
+-- errors.
+flushFD :: FD -> IO Errno
+flushFD _ = return eOK
+
 -- | This call correspond to close(2).
 closeFD :: FD -> IO ()
 closeFD _ = return ()