~ Remove import Internal from Storage.

1 files changed, 1 insertions, 8 deletions

diff --git a/src/Network/BitTorrent.hs b/src/Network/BitTorrent.hs
index 06df77dd..acb3700c 100644
--- a/src/Network/BitTorrent.hs
+++ b/src/Network/BitTorrent.hs
@@ -37,13 +37,6 @@ module Network.BitTorrent
        , SessionCount
        , getSessionCount
 
-         -- * Storage
-       , Storage
-       , ppStorage
-
-       , bindTo
-       , unbind
-
          -- * Discovery
        , discover
        , exchange
@@ -132,7 +125,7 @@ addTorrent clientSession loc @ TorrentLoc {..} = do
 --  when (bf is not full)
 
   swarm   <- newLeecher  clientSession torrent
-  storage <- swarm `bindTo` dataDirPath
+  storage <- openStorage (torrentMeta swarm) dataDirPath
   forkIO $ discover swarm $ do
     liftIO $ putStrLn "connected to peer"
     forever $ do