diff --git a/src/MdToHTML.hs b/src/MdToHTML.hs
index 7c964f4..02cb9c0 100644
--- a/src/MdToHTML.hs
+++ b/src/MdToHTML.hs
@@ -14,9 +14,9 @@ import Text.Printf
 
 type HeaderLevel = Int
 
-newtype URL = URL {getUrl :: String}
+newtype URL = URL {getUrl :: String} deriving (Eq)
 
-newtype ImgPath = ImgPath {getPath :: String}
+newtype ImgPath = ImgPath {getPath :: String} deriving (Eq)
 
 parseMany :: ReadP a -> ReadP [a]
 parseMany = Text.ParserCombinators.ReadP.many
@@ -40,6 +40,7 @@ data MdToken
   | Italic MdToken
   | Strikethrough MdToken
   | Unit String
+  deriving (Eq)
 
 -- Deriving Show for MdToken
 instance Show MdToken where