diff options
| author | Sam T <pxqr.sta@gmail.com> | 2013-07-14 19:34:36 +0400 |
|---|---|---|
| committer | Sam T <pxqr.sta@gmail.com> | 2013-07-14 19:34:36 +0400 |
| commit | 4427cb321a6927b2dd8119e95e09f4998ff8a226 (patch) | |
| tree | ed29b1a0ddcc3113cbe3d68d70413cc8239f5642 /src/System | |
| parent | 5cd492bc9e7ebbaa9557f7a6ae15582febd60a7d (diff) | |
~ Use timestamp peer Id generator.
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 |