Derive Eq for defined types

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