diff --git a/CHANGELOG.md b/CHANGELOG.md
new file mode 100644
--- /dev/null
+++ b/CHANGELOG.md
@@ -0,0 +1,3 @@
+- 0.1.2.0
+
+    - Add 'constructorName'
diff --git a/generics-sop-lens.cabal b/generics-sop-lens.cabal
--- a/generics-sop-lens.cabal
+++ b/generics-sop-lens.cabal
@@ -1,9 +1,9 @@
--- This file has been generated from package.yaml by hpack version 0.8.0.
+-- This file has been generated from package.yaml by hpack version 0.14.0.
 --
 -- see: https://github.com/sol/hpack
 
 name:           generics-sop-lens
-version:        0.1.1.0
+version:        0.1.2.0
 synopsis:       Lenses for types in generics-sop
 description:    Lenses for types in generics-sop package
 category:       Web
@@ -18,6 +18,7 @@
 cabal-version:  >= 1.10
 
 extra-source-files:
+    CHANGELOG.md
     README.md
 
 source-repository head
@@ -31,7 +32,7 @@
   build-depends:
       base                  >=4.7      && <4.10
     , generics-sop          >=0.1      && <0.3
-    , lens                  >=4.7      && <4.14
+    , lens                  >=4.7      && <4.15
   exposed-modules:
       Generics.SOP.Lens
   default-language: Haskell2010
diff --git a/src/Generics/SOP/Lens.hs b/src/Generics/SOP/Lens.hs
--- a/src/Generics/SOP/Lens.hs
+++ b/src/Generics/SOP/Lens.hs
@@ -39,6 +39,7 @@
     moduleName,
     datatypeName,
     constructorInfo,
+    constructorName,
     ) where
 
 import Control.Lens
@@ -258,3 +259,10 @@
     s (ADT m n _)     cs          = ADT m n cs
     s (Newtype m n _) (c :* Nil)  = Newtype m n c
     s _ _ = error "constructorInfo set: impossible happened"
+
+-- | /Note:/ 'Infix' constructor has operator as a 'ConstructorName'. Use as
+-- setter with care.
+constructorName :: Lens' (ConstructorInfo xs) ConstructorName
+constructorName f (Constructor n      ) = (\ n' -> Constructor n'      ) `fmap` f n
+constructorName f (Infix       n a fix) = (\ n' -> Infix       n' a fix) `fmap` f n
+constructorName f (Record      n finfo) = (\ n' -> Record      n' finfo) `fmap` f n