diff --git a/src/MdToHTML.hs b/src/MdToHTML.hs
index 0192dd3..d491290 100644
--- a/src/MdToHTML.hs
+++ b/src/MdToHTML.hs
@@ -60,6 +60,12 @@ instance Show MdToken where
   show (Strikethrough token) = "<s>" ++ show token ++ "</s>"
   show (Unit unit) = printf "%s" unit
 
+instance Semigroup MdToken where
+  a <> b = Document [a, b]
+
+instance Monoid MdToken where
+  mempty = Unit ""
+
 -- ---------------
 -- Helpers
 leftmostLongest :: (Foldable t) => [(a, t b)] -> (a, t b)