Added image parser

src/MdToHTML.hs

@@ -194,6 +194,17 @@ parseSingleNewline = do
   char '\n'
   return SingleNewline
 
+parseImage :: ReadP MdToken
+parseImage = do
+  char '!'
+  char '['
+  altText <- many1 (parseEscapedChar <++ parseUnit)
+  char ']'
+  char '('
+  path <- many1 get
+  char ')'
+  return $ Image (Line altText) (ImgPath path)
+
 -- Parse an escaped character
 parseEscapedChar :: ReadP MdToken
 parseEscapedChar = do
@@ -213,6 +224,7 @@ lineParsers =
     parseSingleNewline,
     parseEscapedChar,
     parseCode,
+    parseImage,
     parseBold,
     parseItalic,
     parseStrikethrough,
@@ -225,6 +237,7 @@ listLineParsers =
   [ parseLinebreak,
     parseEscapedChar,
     parseCode,
+    parseImage,
     parseBold,
     parseItalic,
     parseStrikethrough,