diff options
-rw-r--r-- | examples/MkTorrent.hs | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/examples/MkTorrent.hs b/examples/MkTorrent.hs index ab3144b4..124bb996 100644 --- a/examples/MkTorrent.hs +++ b/examples/MkTorrent.hs | |||
@@ -156,6 +156,7 @@ amend (AmendOpts tpath) = do | |||
156 | {----------------------------------------------------------------------- | 156 | {----------------------------------------------------------------------- |
157 | -- Check command -- validate content files using torrent file | 157 | -- Check command -- validate content files using torrent file |
158 | -----------------------------------------------------------------------} | 158 | -----------------------------------------------------------------------} |
159 | -- TODO progress bar | ||
159 | 160 | ||
160 | data CheckOpts = CheckOpts | 161 | data CheckOpts = CheckOpts |
161 | { checkTorrentPath :: FilePath -- ^ validation torrent file | 162 | { checkTorrentPath :: FilePath -- ^ validation torrent file |
@@ -214,6 +215,14 @@ checkTorrent CheckOpts {..} = do | |||
214 | {----------------------------------------------------------------------- | 215 | {----------------------------------------------------------------------- |
215 | -- Create command | 216 | -- Create command |
216 | -----------------------------------------------------------------------} | 217 | -----------------------------------------------------------------------} |
218 | -- TODO progress bar | ||
219 | -- TODO multifile torrents | ||
220 | -- TODO interactive mode | ||
221 | -- TODO non interactive mode | ||
222 | -- TODO --ignore-dot-files | ||
223 | -- TODO --md5 | ||
224 | -- TODO --piece-size | ||
225 | |||
217 | {- | 226 | {- |
218 | createFlags :: Parser CreateFlags | 227 | createFlags :: Parser CreateFlags |
219 | createFlags = CreateFlags | 228 | createFlags = CreateFlags |