diff --git a/http-link-header.cabal b/http-link-header.cabal
--- a/http-link-header.cabal
+++ b/http-link-header.cabal
@@ -1,11 +1,11 @@
 name:            http-link-header
-version:         1.0.3
+version:         1.0.3.1
 synopsis:        A parser and writer for the HTTP Link header as specified in RFC 5988 "Web Linking".
 description:     https://github.com/myfreeweb/http-link-header
 category:        Web
 homepage:        https://github.com/myfreeweb/http-link-header
 author:          Greg V
-copyright:       2014-2016 Greg V <greg@unrelenting.technology>
+copyright:       2014-2018 Greg V <greg@unrelenting.technology>
 maintainer:      greg@unrelenting.technology
 license:         PublicDomain
 license-file:    UNLICENSE
@@ -14,7 +14,7 @@
 extra-source-files:
     README.md
 tested-with:
-    GHC == 8.0.1
+    GHC == 8.4.3
 
 source-repository head
     type: git
@@ -48,7 +48,7 @@
       , QuickCheck
       , hspec-attoparsec
     default-language: Haskell2010
-    ghc-options: -threaded -fhpc -Wall
+    ghc-options: -threaded -Wall
     hs-source-dirs: test-suite
     main-is: Spec.hs
     other-modules:
diff --git a/test-suite/Network/HTTP/LinkSpec.hs b/test-suite/Network/HTTP/LinkSpec.hs
--- a/test-suite/Network/HTTP/LinkSpec.hs
+++ b/test-suite/Network/HTTP/LinkSpec.hs
@@ -21,7 +21,8 @@
     params ← listOf genParam
     return $ fromJust $ lnk (mconcat [urlScheme, urlDomain, ".", urlTld, "/", urlPath]) params
     where genParam = do
-            otherParamKey ← listOf1 $ elements ['a'..'z']
+            otherParamKey ← suchThat (listOf1 $ elements ['a'..'z']) (\x → x /= "rel" && x /= "rev" && x /= "title"
+              && x /= "title*" && x /= "hreflang" && x /= "anchor" && x /= "media" && x /= "type")
             paramKey ← elements [Rel, Rev, Title, Hreflang, Anchor, Media, ContentType, Other (T.pack otherParamKey)]
             paramValue ← listOf $ elements ['a'..'z']
             return (paramKey, T.pack paramValue)