diff --git a/genvalidity-dlist.cabal b/genvalidity-dlist.cabal
--- a/genvalidity-dlist.cabal
+++ b/genvalidity-dlist.cabal
@@ -5,7 +5,7 @@
 -- see: https://github.com/sol/hpack
 
 name:           genvalidity-dlist
-version:        0.1.0.0
+version:        0.1.0.1
 synopsis:       GenValidity support for dlist
 category:       Testing
 homepage:       https://github.com/NorfairKing/validity#readme
diff --git a/src/Data/GenValidity/DNonEmpty.hs b/src/Data/GenValidity/DNonEmpty.hs
--- a/src/Data/GenValidity/DNonEmpty.hs
+++ b/src/Data/GenValidity/DNonEmpty.hs
@@ -8,5 +8,5 @@
 import Data.Validity.DNonEmpty ()
 
 instance (GenValid a) => GenValid (DNonEmpty a) where
-  genValid = DNonEmpty.fromList <$> genValid
+  genValid = DNonEmpty.fromNonEmpty <$> genValid
   shrinkValid = fmap DNonEmpty.fromNonEmpty . shrinkValid . DNonEmpty.toNonEmpty