diff --git a/Changelog.md b/Changelog.md
--- a/Changelog.md
+++ b/Changelog.md
@@ -10,6 +10,13 @@
 Changes in 2999.18.1.1
 ----------------------
 
+* Allow dlist-0.8, thanks to **Sean Leather**.
+
+* Properly allow QuickCheck-2.9.
+
+Changes in 2999.18.1.1
+----------------------
+
 * Bump allowed version of QuickCheck for the test suite.
 
 Changes in 2999.18.1.0
diff --git a/graphviz.cabal b/graphviz.cabal
--- a/graphviz.cabal
+++ b/graphviz.cabal
@@ -1,5 +1,5 @@
 Name:               graphviz
-Version:            2999.18.1.1
+Version:            2999.18.1.2
 Stability:          Beta
 Synopsis:           Bindings to Graphviz for graph visualisation.
 Description: {
@@ -71,7 +71,7 @@
                            transformers >= 0.2 && < 0.6,
                            text,
                            wl-pprint-text >= 1.1.0.0 && < 1.2.0.0,
-                           dlist >= 0.5 && < 0.8
+                           dlist >= 0.5 && < 0.9
 
         Exposed-Modules:   Data.GraphViz
                            Data.GraphViz.Types
diff --git a/tests/Data/GraphViz/Testing/Instances/Attributes.hs b/tests/Data/GraphViz/Testing/Instances/Attributes.hs
--- a/tests/Data/GraphViz/Testing/Instances/Attributes.hs
+++ b/tests/Data/GraphViz/Testing/Instances/Attributes.hs
@@ -1,6 +1,6 @@
 {-# OPTIONS_GHC -fno-warn-orphans #-}
 {-# OPTIONS_HADDOCK hide #-}
-{-# LANGUAGE OverloadedStrings #-}
+{-# LANGUAGE CPP, OverloadedStrings #-}
 
 {- |
    Module      : Data.GraphViz.Testing.Instances.Attributes
@@ -27,7 +27,7 @@
 import           Data.GraphViz.Attributes.Internal      (compassLookup)
 import           Data.GraphViz.Internal.State           (initialState,
                                                          layerListSep, layerSep)
-import           Data.GraphViz.Internal.Util            (bool, createVersion)
+import           Data.GraphViz.Internal.Util            (bool)
 
 import Test.QuickCheck
 
@@ -36,9 +36,13 @@
 import qualified Data.Map        as Map
 import           Data.Text.Lazy  (Text)
 import qualified Data.Text.Lazy  as T
-import           Data.Version    (Version (..))
 import           System.FilePath (searchPathSeparator)
 
+#if !MIN_VERSION_QuickCheck(2,9,0)
+import Data.GraphViz.Internal.Util (createVersion)
+import Data.Version                (Version (..))
+#endif
+
 -- -----------------------------------------------------------------------------
 -- Defining Arbitrary instances for Attributes
 
@@ -1015,10 +1019,12 @@
   shrink (NormalizedAngle a) = map NormalizedAngle $ shrink a
   shrink _                   = []
 
+#if !MIN_VERSION_QuickCheck(2,9,0)
 instance Arbitrary Version where
   arbitrary = liftM (createVersion . map getPositive) arbList
 
   shrink = map createVersion . nonEmptyShrinks . versionBranch
+#endif
 
 instance Arbitrary NodeSize where
   arbitrary = arbBounded