diff --git a/hpack.cabal b/hpack.cabal
--- a/hpack.cabal
+++ b/hpack.cabal
@@ -1,9 +1,9 @@
--- This file has been generated from package.yaml by hpack version 0.12.0.
+-- This file has been generated from package.yaml by hpack version 0.14.0.
 --
 -- see: https://github.com/sol/hpack
 
 name:           hpack
-version:        0.14.0
+version:        0.14.1
 synopsis:       An alternative format for Haskell packages
 category:       Development
 homepage:       https://github.com/sol/hpack#readme
diff --git a/src/Hpack/Config.hs b/src/Hpack/Config.hs
--- a/src/Hpack/Config.hs
+++ b/src/Hpack/Config.hs
@@ -119,7 +119,7 @@
 class HasFieldNames a where
   fieldNames :: Proxy a -> [FieldName]
 
-  default fieldNames :: (HasTypeName a, Generic a, Selectors (Rep a)) => Proxy a -> [String]
+  default fieldNames :: (HasTypeName a, Selectors (Rep a)) => Proxy a -> [String]
   fieldNames proxy = map (hyphenize $ typeName proxy) (selectors proxy)
 
 data CaptureUnknownFields a = CaptureUnknownFields {
diff --git a/src/Hpack/GenericsUtil.hs b/src/Hpack/GenericsUtil.hs
--- a/src/Hpack/GenericsUtil.hs
+++ b/src/Hpack/GenericsUtil.hs
@@ -21,10 +21,10 @@
 instance (Datatype d, Generic a, Rep a ~ M1 D d m) => HasTypeName a where
   typeName _ = datatypeName (undefined :: M1 D d x y)
 
-selectors :: (Generic a, Selectors (Rep a)) => Proxy a -> [String]
+selectors :: (Selectors (Rep a)) => Proxy a -> [String]
 selectors = f
   where
-    f :: forall a. (Generic a, Selectors (Rep a)) => Proxy a -> [String]
+    f :: forall a. (Selectors (Rep a)) => Proxy a -> [String]
     f _ = selNames (Proxy :: Proxy (Rep a))
 
 class Selectors a where
diff --git a/test/Helper.hs b/test/Helper.hs
--- a/test/Helper.hs
+++ b/test/Helper.hs
@@ -10,14 +10,14 @@
 import           Test.Hspec
 import           Test.Mockery.Directory
 import           Control.Applicative
-import           System.Directory
+import           System.Directory (getCurrentDirectory, setCurrentDirectory, canonicalizePath)
 import           Control.Exception
 import qualified System.IO.Temp as Temp
 import           System.FilePath
 
 withCurrentDirectory :: FilePath -> IO a -> IO a
 withCurrentDirectory dir action = do
-  bracket (getCurrentDirectory) (setCurrentDirectory) $ \ _ -> do
+  bracket getCurrentDirectory setCurrentDirectory $ \ _ -> do
     setCurrentDirectory dir
     action