diff options
Diffstat (limited to 'src/System')
-rw-r--r-- | src/System/Torrent/Storage.hs | 3 |
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 | ||
95 | closeStorage :: Storage -> IO () | 96 | closeStorage :: Storage -> IO () |
96 | closeStorage st = error "closeStorage" | 97 | closeStorage st = return () |
97 | 98 | ||
98 | 99 | ||
99 | withStorage :: Torrent -> FilePath -> (Storage -> IO a) -> IO a | 100 | withStorage :: Torrent -> FilePath -> (Storage -> IO a) -> IO a |