diff --git a/Text/Markdown.hs b/Text/Markdown.hs
--- a/Text/Markdown.hs
+++ b/Text/Markdown.hs
@@ -45,7 +45,7 @@
 
 -- | A newtype wrapper providing a @ToHtml@ instance.
 newtype Markdown = Markdown TL.Text
-  deriving(Monoid, IsString)
+  deriving(Eq, Monoid, IsString)
 
 instance ToMarkup Markdown where
     toMarkup (Markdown t) = markdown def t
diff --git a/Text/Markdown/Block.hs b/Text/Markdown/Block.hs
--- a/Text/Markdown/Block.hs
+++ b/Text/Markdown/Block.hs
@@ -241,7 +241,9 @@
     case T.stripPrefix "<" t of
         Nothing -> False
         Just t' ->
-            let (name, rest) = T.break (\c -> c `elem` " >") t'
+            let (name, rest)
+                    | Just x <- T.stripPrefix "!--" t' = ("--", t')
+                    | otherwise = T.break (\c -> c `elem` " >") t'
              in T.all isValidTagName name &&
                 not (T.null name) &&
                 (not ("/" `T.isPrefixOf` rest) || ("/>" `T.isPrefixOf` rest))
diff --git a/markdown.cabal b/markdown.cabal
--- a/markdown.cabal
+++ b/markdown.cabal
@@ -1,5 +1,5 @@
 Name:                markdown
-Version:             0.1.8
+Version:             0.1.9
 Synopsis:            Convert Markdown to HTML, with XSS protection
 Description:         This library leverages existing high-performance libraries (attoparsec, blaze-html, text, and conduit), and should integrate well with existing codebases.
 Homepage:            https://github.com/snoyberg/markdown
@@ -23,10 +23,9 @@
   Build-depends:       base                   >= 4       && < 5
                      , blaze-html             >= 0.4
                      , attoparsec             >= 0.10
-                     , attoparsec-conduit     >= 0.5
                      , transformers           >= 0.2.2
-                     , conduit                >= 0.5.2.1
-                     , conduit-extra
+                     , conduit                >= 1.1
+                     , conduit-extra          >= 1.1
                      , text
                      , data-default           >= 0.3
                      , xss-sanitize           >= 0.3.3
diff --git a/test/main.hs b/test/main.hs
--- a/test/main.hs
+++ b/test/main.hs
@@ -222,6 +222,9 @@
     describe "examples" $ sequence_ examples
     describe "John Gruber's test suite" $ sequence_ gruber
 
+    it "comments without spaces #22" $
+        check "<!--<>-->" "<!--<>-->"
+
 getExamples :: IO [Spec]
 getExamples = do
     files <- F.listDirectory "test/examples"