diff --git a/README.md b/README.md
--- a/README.md
+++ b/README.md
@@ -1,5 +1,10 @@
-# Zenacy HTML [![Hackage version](https://img.shields.io/hackage/v/zenacy-html.svg?label=Hackage)](https://hackage.haskell.org/package/zenacy-html) [![Stackage version](https://www.stackage.org/package/zenacy-html/badge/nightly?label=Stackage)](https://www.stackage.org/package/zenacy-html) [![Linux build status](https://img.shields.io/travis/mlcfp/zenacy-html/master.svg?label=Linux%20build)](https://travis-ci.org/mlcfp/zenacy-html)
+# Zenacy HTML
 
+[![hackage-shield][]][hackage-version]
+[![stackage-shield][]][stackage-version]
+[![linux-shield][]][linux-build]
+[![packdeps-shield][]][packdeps]
+
 Zenacy HTML is an HTML parsing and processing library that implements the
 WHATWG HTML parsing standard.  The standard is described as a state machine
 that this library implements exactly as spelled out including all the error
@@ -239,3 +244,13 @@
 there is room for more improvements the result worked quite well in
 production (a lot of credit goes to the GHC team and Haskell community
 for providing such great, fast functional programming tools).
+
+[hackage-shield]: https://img.shields.io/hackage/v/zenacy-html.svg?label=Hackage
+[hackage-version]: https://hackage.haskell.org/package/zenacy-html
+[stackage-shield]: https://www.stackage.org/package/zenacy-html/badge/nightly?label=Stackage
+[stackage-version]: https://www.stackage.org/package/zenacy-html
+[linux-shield]: https://img.shields.io/travis/com/mlcfp/zenacy-html?label=Linux%20build
+[linux-build]: https://travis-ci.org/mlcfp/zenacy-html
+[packdeps-shield]: https://img.shields.io/hackage-deps/v/zenacy-html.svg?maxAge=3600
+[packdeps]: http://packdeps.haskellers.com/feed?needle=zenacy-html
+
diff --git a/src/Zenacy/HTML/Internal/DOM.hs b/src/Zenacy/HTML/Internal/DOM.hs
--- a/src/Zenacy/HTML/Internal/DOM.hs
+++ b/src/Zenacy/HTML/Internal/DOM.hs
@@ -447,7 +447,6 @@
 seqLast :: Seq a -> Maybe a
 seqLast (Seq.viewr -> EmptyR) = Nothing
 seqLast (Seq.viewr -> _ :> a) = Just a
-seqLast _ = Nothing
 
 -- | Finds an element in a sequence.
 seqFind :: (a -> Bool) -> Seq a -> Maybe a
@@ -455,7 +454,6 @@
   where
     go (Seq.viewl -> EmptyL) = Nothing
     go (Seq.viewl -> a :< b) = if f a then Just a else go b
-    go _ = Nothing
 
 -- | Inserts an element into a sequence before the element satisfying a predicate.
 seqInsertBefore :: (a -> Bool) -> a -> Seq a -> Seq a
diff --git a/zenacy-html.cabal b/zenacy-html.cabal
--- a/zenacy-html.cabal
+++ b/zenacy-html.cabal
@@ -1,5 +1,5 @@
 cabal-version: >= 1.10
-version: 2.0.1
+version: 2.0.2
 name:
   zenacy-html
 synopsis:
@@ -63,7 +63,7 @@
     bytestring        >= 0.10.6.0 && < 0.11,
     containers        >= 0.5.7.1 && < 0.7,
     data-default      >= 0.7.1.1 && < 0.8,
-    dlist             >= 0.8 && < 0.9,
+    dlist             >= 0.8 && < 1.1,
     extra             >= 1.4 && < 1.8,
     mtl               >= 2.1 && < 2.3,
     pretty-show       >= 1.6 && < 1.11,
@@ -82,6 +82,8 @@
     -Wno-unused-imports
     -Wno-unused-top-binds
     -Wno-incomplete-patterns
+  if impl(ghc >= 8.10)
+    ghc-options: -Wno-unused-record-wildcards
   default-extensions:
   default-language:
     Haskell2010
@@ -101,6 +103,8 @@
     -Wno-unused-top-binds
     -Wno-incomplete-patterns
     -threaded -rtsopts -with-rtsopts=-N
+  if impl(ghc >= 8.10)
+    ghc-options: -Wno-unused-record-wildcards
   build-depends:
     base == 4.*
     , bytestring