diff --git a/HSet.cabal b/HSet.cabal
--- a/HSet.cabal
+++ b/HSet.cabal
@@ -1,5 +1,5 @@
 Name:                   HSet
-Version:                0.0.0
+Version:                0.0.1
 Author:                 Athan Clark <athan.clark@gmail.com>
 Maintainer:             Athan Clark <athan.clark@gmail.com>
 License:                BSD3
diff --git a/src/Data/HSet/Mutable.hs b/src/Data/HSet/Mutable.hs
--- a/src/Data/HSet/Mutable.hs
+++ b/src/Data/HSet/Mutable.hs
@@ -12,7 +12,8 @@
 import Prelude hiding (lookup, length)
 import Data.Maybe (fromMaybe)
 
-import Data.Typeable.Internal (Fingerprint, TypeRep (TypeRep))
+import Data.Typeable (typeOf, typeRepFingerprint)
+import GHC.Fingerprint
 import Data.Dynamic
 
 import           Data.HashTable.ST.Basic (HashTable)
@@ -31,10 +32,9 @@
 new = HSet <$> HT.new <*> HT.new
 
 
-insert :: ( Typeable a
-          ) => a -> HSet s -> ST s (HKey a)
+insert :: Typeable a => a -> HSet s -> ST s (HKey a)
 insert x (HSet xs count) = do
-  let (TypeRep f _ _ _) = typeOf x
+  let f = typeRepFingerprint $ typeOf x
   c <- fromMaybe 0 <$> HT.lookup count f
   HT.insert count f (c+1)
   let k = HKey' f c
@@ -42,8 +42,7 @@
   pure (HKey k)
 
 
-lookup :: ( Typeable a
-          ) => HKey a -> HSet s -> ST s (Maybe a)
+lookup :: Typeable a => HKey a -> HSet s -> ST s (Maybe a)
 lookup (HKey k) (HSet xs _) = (>>= fromDynamic) <$> HT.lookup xs k
 
 
diff --git a/src/Data/HSet/Types.hs b/src/Data/HSet/Types.hs
--- a/src/Data/HSet/Types.hs
+++ b/src/Data/HSet/Types.hs
@@ -4,8 +4,7 @@
 
 module Data.HSet.Types where
 
-import Data.Typeable.Internal (Fingerprint (..))
-
+import GHC.Fingerprint (Fingerprint(..))
 import GHC.Generics
 import Data.Hashable