From 4b7f8e625d6cab8ae25074fc3339a5403ec5fb36 Mon Sep 17 00:00:00 2001
From: joe <joe@jerkface.net>
Date: Sat, 14 Oct 2017 16:34:24 -0400
Subject: Partitioned friend-request transport from the onion transport.

---
 examples/dhtd.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'examples/dhtd.hs')

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
 showReport :: [(String,String)] -> String
 showReport kvs = showColumns $ map (\(x,y)->[x,y]) kvs
 
-showColumns :: [[[Char]]] -> [Char]
+showColumns :: [[String]] -> String
 showColumns rows = do
     let cols = transpose rows
         ws = map (maximum . map (succ . length)) cols
-- 
cgit v1.2.3