diff --git a/Data/Lens/Template.hs b/Data/Lens/Template.hs
--- a/Data/Lens/Template.hs
+++ b/Data/Lens/Template.hs
@@ -103,9 +103,9 @@
         liftM (concat . catMaybes) $ mapM (\ (name,_,ftype) -> makeAccFromName name params ftype) vars
 
     transformName :: Name -> Maybe Name
-    transformName (Name occ _) = do
+    transformName (Name occ f) = do
         n <- namer (occString occ)
-        return $ Name (mkOccName n) NameS
+        return $ Name (mkOccName n) f
 
     makeAccFromName :: Name -> [TyVarBndr] -> Type -> Q (Maybe [Dec])
     makeAccFromName name params ftype =
diff --git a/data-lens-template.cabal b/data-lens-template.cabal
--- a/data-lens-template.cabal
+++ b/data-lens-template.cabal
@@ -1,5 +1,5 @@
 name:          data-lens-template
-version:       2.1.6
+version:       2.1.7
 license:       BSD3
 license-file:  LICENSE
 author:        Joel Burget <joelburget@gmail.com>