diff options
| author | Sam Truzjan <pxqr.sta@gmail.com> | 2013-11-23 03:37:15 +0400 |
|---|---|---|
| committer | Sam Truzjan <pxqr.sta@gmail.com> | 2013-11-23 03:37:15 +0400 |
| commit | ed25a297094b483dce06e14d52ced2f93f6dca41 (patch) | |
| tree | 3df60d8b30af29345de021f251903a175e78c70c /src/Data/Torrent/Tree.hs | |
| parent | 708938679954a5d5f9def82e1fa873c19ed662df (diff) | |
Use pretty-class package
Diffstat (limited to 'src/Data/Torrent/Tree.hs')
| -rw-r--r-- | src/Data/Torrent/Tree.hs | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/src/Data/Torrent/Tree.hs b/src/Data/Torrent/Tree.hs index cf71c2ec..102f4dff 100644 --- a/src/Data/Torrent/Tree.hs +++ b/src/Data/Torrent/Tree.hs | |||
| @@ -55,6 +55,8 @@ build MultiFile {..} = Dir $ M.singleton liDirName files | |||
| 55 | --decompress :: DirTree () -> [FileInfo ()] | 55 | --decompress :: DirTree () -> [FileInfo ()] |
| 56 | --decompress = undefined | 56 | --decompress = undefined |
| 57 | 57 | ||
| 58 | -- TODO pretty print | ||
| 59 | |||
| 58 | -- | Lookup file by path. | 60 | -- | Lookup file by path. |
| 59 | lookup :: [FilePath] -> DirTree a -> Maybe (DirTree a) | 61 | lookup :: [FilePath] -> DirTree a -> Maybe (DirTree a) |
| 60 | lookup [] t = Just t | 62 | lookup [] t = Just t |