diff --git a/src/MdToHTML.hs b/src/MdToHTML.hs
index 2bcb34e..dea69a6 100644
--- a/src/MdToHTML.hs
+++ b/src/MdToHTML.hs
@@ -58,7 +58,7 @@ instance Show MdToken where
show (Header level token) = "
" ++ show token ++ "
" show (Line tokens) = concatMap show tokens - show Linebreak = "" ++ concatMap show tokens ++ "" @@ -81,6 +81,8 @@ instance Show MdToken where prettyPrint :: MdToken -> String prettyPrint (Para token) = "
" ++ T.unpack (wrapText defaultWrapSettings 70 (T.pack $ prettyPrint token)) ++ "
\n" prettyPrint (Table (thead : tokenGrid)) = "" ++ rstrip (prettyPrint x) ++ " | \n") thead ++ "
---|
" ++ rstrip (prettyPrint y) ++ " | \n") x ++ "