From 5a6e5634452ff463a7442dbd8761678651517d20 Mon Sep 17 00:00:00 2001 From: Sam T Date: Sun, 14 Jul 2013 03:25:46 +0400 Subject: ~ Minor changes. --- src/Data/Torrent.hs | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'src/Data/Torrent.hs') diff --git a/src/Data/Torrent.hs b/src/Data/Torrent.hs index ae40bef4..3f555a5b 100644 --- a/src/Data/Torrent.hs +++ b/src/Data/Torrent.hs @@ -27,7 +27,7 @@ module Data.Torrent ( -- * Torrent Torrent(..), ContentInfo(..), FileInfo(..) - , torrent, simpleTorrent + , mktorrent, simpleTorrent , torrentExt, isTorrentPath , fromFile @@ -279,16 +279,16 @@ instance Hashable Torrent where -} -- | Smart constructor for 'Torrent' which compute info hash. -torrent :: URI -> ContentInfo +mktorrent :: URI -> ContentInfo -> Maybe [[URI]] -> Maybe Text -> Maybe ByteString -> Maybe Time -> Maybe ByteString -> Maybe URI -> Maybe URI -> Maybe ByteString -> Torrent -torrent announce info = Torrent (hashlazy (BE.encoded info)) announce info +mktorrent announce info = Torrent (hashlazy (BE.encoded info)) announce info -- | A simple torrent contains only required fields. simpleTorrent :: URI -> ContentInfo -> Torrent -simpleTorrent announce info = torrent announce info +simpleTorrent announce info = mktorrent announce info Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing -- cgit v1.2.3