diff options
| author | joe <joe@jerkface.net> | 2017-10-14 16:34:24 -0400 |
|---|---|---|
| committer | joe <joe@jerkface.net> | 2017-10-14 16:34:24 -0400 |
| commit | 4b7f8e625d6cab8ae25074fc3339a5403ec5fb36 (patch) | |
| tree | 9da87ee15ce14f6347e40b8a9491547edc281c9f /examples/dhtd.hs | |
| parent | f1a79aef9799176b52efb6197aaf7c2b5a8f14ad (diff) | |
Partitioned friend-request transport from the onion transport.
Diffstat (limited to 'examples/dhtd.hs')
| -rw-r--r-- | examples/dhtd.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/examples/dhtd.hs b/examples/dhtd.hs index 2b0191a3..ad90d459 100644 --- a/examples/dhtd.hs +++ b/examples/dhtd.hs | |||
| @@ -76,7 +76,7 @@ import Data.Typeable | |||
| 76 | showReport :: [(String,String)] -> String | 76 | showReport :: [(String,String)] -> String |
| 77 | showReport kvs = showColumns $ map (\(x,y)->[x,y]) kvs | 77 | showReport kvs = showColumns $ map (\(x,y)->[x,y]) kvs |
| 78 | 78 | ||
| 79 | showColumns :: [[[Char]]] -> [Char] | 79 | showColumns :: [[String]] -> String |
| 80 | showColumns rows = do | 80 | showColumns rows = do |
| 81 | let cols = transpose rows | 81 | let cols = transpose rows |
| 82 | ws = map (maximum . map (succ . length)) cols | 82 | ws = map (maximum . map (succ . length)) cols |