diff --git a/Data/Profunctor/Product/TH.hs b/Data/Profunctor/Product/TH.hs
--- a/Data/Profunctor/Product/TH.hs
+++ b/Data/Profunctor/Product/TH.hs
@@ -45,7 +45,7 @@
                                 p8, p9, p10, p11, p12, p13, p14, p15, p16, p17,
                                 p18, p19, p20, p21, p22, p23, p24)
 import Data.Profunctor.Product.Default (Default, def)
-import Language.Haskell.TH (Dec(DataD, SigD, FunD, InstanceD),
+import Language.Haskell.TH (Dec(DataD, SigD, FunD, InstanceD, NewtypeD),
                             mkName, TyVarBndr(PlainTV, KindedTV),
                             Con(RecC, NormalC),
                             Strict(NotStrict), Clause(Clause),
@@ -87,7 +87,12 @@
     (conName, conTys) <- extractConstructorStuff constructors
     let tyVars' = map varNameOfBinder tyVars
     return (tyName, tyVars', conName, conTys)
-dataDecStuffOfInfo _ = Left "That doesn't look like a data declaration to me"
+dataDecStuffOfInfo (TyConI (NewtypeD _cxt tyName tyVars constructor _deriving)) =
+  do
+    (conName, conTys) <- extractConstructorStuff [constructor]
+    let tyVars' = map varNameOfBinder tyVars
+    return (tyName, tyVars', conName, conTys)
+dataDecStuffOfInfo _ = Left "That doesn't look like a data or newtpe declaration to me"
 
 varNameOfType :: Type -> Either Error Name
 varNameOfType (VarT n) = Right n
diff --git a/product-profunctors.cabal b/product-profunctors.cabal
--- a/product-profunctors.cabal
+++ b/product-profunctors.cabal
@@ -1,5 +1,5 @@
 name:          product-profunctors
-version:       0.6.3
+version:       0.6.3.1
 synopsis:      product-profunctors
 description:   Product profunctors
 homepage:      https://github.com/tomjaguarpaw/product-profunctors