diff --git a/ChangeLog.md b/ChangeLog.md
--- a/ChangeLog.md
+++ b/ChangeLog.md
@@ -1,5 +1,12 @@
 # ChangeLog
 
+## 0.7.16
+
+* Adds support for `vector-0.13.0.0`. See [#174][].
+
+[#174]: https://github.com/mgsloan/store/issues/174
+
+
 ## 0.7.15
 
 * Adds support for `text >= 2`. See [#170][].
diff --git a/src/Data/Store/TH/Internal.hs b/src/Data/Store/TH/Internal.hs
--- a/src/Data/Store/TH/Internal.hs
+++ b/src/Data/Store/TH/Internal.hs
@@ -29,7 +29,7 @@
 import           Data.Generics.Schemes (listify, everywhere, something)
 import           Data.List (find)
 import qualified Data.Map as M
-import           Data.Maybe (fromMaybe, isJust)
+import           Data.Maybe (fromMaybe, isJust, mapMaybe)
 import           Data.Primitive.ByteArray
 import           Data.Primitive.Types
 import           Data.Store.Core
@@ -374,27 +374,35 @@
 getUnboxInfo :: Q [(Cxt, Type, [DataCon])]
 getUnboxInfo = do
     FamilyI _ insts <- reify ''UV.Vector
-    return (map (everywhere (id `extT` dequalVarT) . go) insts)
+    return (map (everywhere (id `extT` dequalVarT)) $ mapMaybe go insts)
   where
 #if MIN_VERSION_template_haskell(2,15,0)
     go (NewtypeInstD preds _ lhs _ con _)
       | [_, ty] <- unAppsT lhs
-      = (preds, ty, conToDataCons con)
+      = toResult preds ty [con]
     go (DataInstD preds _ lhs _ cons _)
       | [_, ty] <- unAppsT lhs
-      = (preds, ty, concatMap conToDataCons cons)
+      = toResult preds ty cons
 #elif MIN_VERSION_template_haskell(2,11,0)
-    go (NewtypeInstD preds _ [ty] _ con _) = (preds, ty, conToDataCons con)
-    go (DataInstD preds _ [ty] _ cons _) = (preds, ty, concatMap conToDataCons cons)
+    go (NewtypeInstD preds _ [ty] _ con _) = toResult preds ty [con]
+    go (DataInstD preds _ [ty] _ cons _) = toResult preds ty cons
 #else
-    go (NewtypeInstD preds _ [ty] con _) = (preds, ty, conToDataCons con)
-    go (DataInstD preds _ [ty] cons _) = (preds, ty, concatMap conToDataCons cons)
+    go (NewtypeInstD preds _ [ty] con _) = toResult preds ty [con]
+    go (DataInstD preds _ [ty] cons _) = toResult preds ty cons
 #endif
     go x = error ("Unexpected result from reifying Unboxed Vector instances: " ++ pprint x)
+    toResult :: Cxt -> Type -> [Con] -> Maybe (Cxt, Type, [DataCon])
+    toResult _ _ [NormalC conName _]
+      | nameBase conName `elem` skippedUnboxConstructors = Nothing
+    toResult preds ty cons
+      = Just (preds, ty, concatMap conToDataCons cons)
     dequalVarT :: Type -> Type
     dequalVarT (VarT n) = VarT (dequalify n)
     dequalVarT ty = ty
 
+-- See issue #174
+skippedUnboxConstructors :: [String]
+skippedUnboxConstructors = ["MV_UnboxAs", "V_UnboxAs", "MV_UnboxViaPrim", "V_UnboxViaPrim"]
 
 ------------------------------------------------------------------------
 -- Utilities
diff --git a/store.cabal b/store.cabal
--- a/store.cabal
+++ b/store.cabal
@@ -5,7 +5,7 @@
 -- see: https://github.com/sol/hpack
 
 name:           store
-version:        0.7.15
+version:        0.7.16
 synopsis:       Fast binary serialization
 category:       Serialization, Data
 homepage:       https://github.com/mgsloan/store#readme