summaryrefslogtreecommitdiff
path: root/src/System/Torrent/Storage.hs
diff options
context:
space:
mode:
Diffstat (limited to 'src/System/Torrent/Storage.hs')
-rw-r--r--src/System/Torrent/Storage.hs3
1 files changed, 2 insertions, 1 deletions
diff --git a/src/System/Torrent/Storage.hs b/src/System/Torrent/Storage.hs
index 6a748fe3..cd1a8364 100644
--- a/src/System/Torrent/Storage.hs
+++ b/src/System/Torrent/Storage.hs
@@ -92,8 +92,9 @@ openStorage t @ Torrent {..} contentPath = do
92 unless exist $ do 92 unless exist $ do
93 createDirectoryIfMissing True dirPath 93 createDirectoryIfMissing True dirPath
94 94
95-- TODO
95closeStorage :: Storage -> IO () 96closeStorage :: Storage -> IO ()
96closeStorage st = error "closeStorage" 97closeStorage st = return ()
97 98
98 99
99withStorage :: Torrent -> FilePath -> (Storage -> IO a) -> IO a 100withStorage :: Torrent -> FilePath -> (Storage -> IO a) -> IO a