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
 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

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