diff --git a/genvalidity-scientific.cabal b/genvalidity-scientific.cabal
--- a/genvalidity-scientific.cabal
+++ b/genvalidity-scientific.cabal
@@ -1,18 +1,19 @@
--- This file has been generated from package.yaml by hpack version 0.20.0.
+-- This file has been generated from package.yaml by hpack version 0.28.2.
 --
 -- see: https://github.com/sol/hpack
 --
--- hash: ab490d7da718d08c9dd87c3c13e830b04072a545b337474edcf02023f45d0bd5
+-- hash: 30fcf5a27de0b88d2c4cc9919bbbececea724a68019af2fac13002b1ac264bce
 
 name:           genvalidity-scientific
-version:        0.2.0.1
+version:        0.2.1.0
 synopsis:       GenValidity support for Scientific
 description:    Please see README.md
 category:       Testing
 homepage:       https://github.com/NorfairKing/validity#readme
 bug-reports:    https://github.com/NorfairKing/validity/issues
 author:         Tom Sydney Kerckhove
-maintainer:     syd.kerckhove@gmail.com
+maintainer:     syd.kerckhove@gmail.com,
+                nick.van.den.broeck666@gmail.com
 copyright:      Copyright: (c) 2017-2018 Tom Sydney Kerckhove
 license:        MIT
 license-file:   LICENSE
@@ -24,6 +25,10 @@
   location: https://github.com/NorfairKing/validity
 
 library
+  exposed-modules:
+      Data.GenValidity.Scientific
+  other-modules:
+      Paths_genvalidity_scientific
   hs-source-dirs:
       src
   build-depends:
@@ -33,15 +38,14 @@
     , scientific
     , validity >=0.5
     , validity-scientific >=0.2
-  exposed-modules:
-      Data.GenValidity.Scientific
-  other-modules:
-      Paths_genvalidity_scientific
   default-language: Haskell2010
 
 test-suite genvalidity-scientific-test
   type: exitcode-stdio-1.0
   main-is: Spec.hs
+  other-modules:
+      Data.GenValidity.ScientificSpec
+      Paths_genvalidity_scientific
   hs-source-dirs:
       test
   ghc-options: -threaded -rtsopts -with-rtsopts=-N -Wall -fno-warn-name-shadowing
@@ -53,7 +57,4 @@
     , genvalidity-scientific
     , hspec
     , scientific
-  other-modules:
-      Data.GenValidity.ScientificSpec
-      Paths_genvalidity_scientific
   default-language: Haskell2010
diff --git a/src/Data/GenValidity/Scientific.hs b/src/Data/GenValidity/Scientific.hs
--- a/src/Data/GenValidity/Scientific.hs
+++ b/src/Data/GenValidity/Scientific.hs
@@ -2,6 +2,7 @@
 {-# LANGUAGE CPP #-}
 
 module Data.GenValidity.Scientific where
+import Data.List
 #if !MIN_VERSION_base(4,8,0)
 import Control.Applicative ((<*>))
 import Data.Functor ((<$>))
@@ -13,6 +14,8 @@
 instance GenUnchecked Scientific where
     genUnchecked = scientific <$> genUnchecked <*> genUnchecked
     shrinkUnchecked s =
+        nub $
+        filter (/= s) $
         [ scientific c e
         | (c, e) <- shrinkUnchecked (coefficient s, base10Exponent s)
         ]
diff --git a/test/Data/GenValidity/ScientificSpec.hs b/test/Data/GenValidity/ScientificSpec.hs
--- a/test/Data/GenValidity/ScientificSpec.hs
+++ b/test/Data/GenValidity/ScientificSpec.hs
@@ -1,17 +1,17 @@
+{-# LANGUAGE TypeApplications #-}
+
 module Data.GenValidity.ScientificSpec
     ( spec
     ) where
 
 import Test.Hspec
-import Test.QuickCheck
+import Test.Validity
 
-import Data.GenValidity
 import Data.GenValidity.Scientific ()
 
 import Data.Scientific
 
 spec :: Spec
-spec =
-    describe "genValid" $
-    it "generates valid Scientific's" $
-    forAll (genValid :: Gen Scientific) isValid
+spec = do
+    genValidSpec @Scientific
+    shrinkValidSpec @Scientific