diff --git a/CHANGELOG.md b/CHANGELOG.md
--- a/CHANGELOG.md
+++ b/CHANGELOG.md
@@ -1,5 +1,11 @@
 # Revision history for ogma-language-xmlspec
 
+## [1.15.0] - 2026-07-21
+
+* Version bump (1.15.0) (#508).
+* Remove redundant `where` block (#452).
+* Break lines at 80 columns (#492).
+
 ## [1.14.0] - 2026-05-21
 
 * Version bump (1.14.0) (#425).
diff --git a/ogma-language-xmlspec.cabal b/ogma-language-xmlspec.cabal
--- a/ogma-language-xmlspec.cabal
+++ b/ogma-language-xmlspec.cabal
@@ -19,7 +19,7 @@
 build-type:          Simple
 
 name:                ogma-language-xmlspec
-version:             1.14.0
+version:             1.15.0
 homepage:            http://nasa.gov
 license:             Apache-2.0
 license-file:        LICENSE
@@ -58,7 +58,7 @@
     , hxt-xpath           >= 8.5      && < 9.2
     , pretty              >= 1.1      && < 1.2
 
-    , ogma-spec           >= 1.14.0 && < 1.15
+    , ogma-spec           >= 1.15.0 && < 1.16
 
   hs-source-dirs:
     src
diff --git a/src/Language/XMLSpec/Parser.hs b/src/Language/XMLSpec/Parser.hs
--- a/src/Language/XMLSpec/Parser.hs
+++ b/src/Language/XMLSpec/Parser.hs
@@ -162,7 +162,9 @@
         -- let msgE = "Requirement expression: " ++ take 160 def
         reqExpr <- liftIO $
                      listToMaybe <$>
-                       concatMapM (`executeXPath` def) (xfiRequirementExpr xmlFormatInternal)
+                       concatMapM
+                         (`executeXPath` def)
+                         (xfiRequirementExpr xmlFormatInternal)
 
         reqExpr' <- maybe (return defA)
                           (ExceptT . parseExpr . textUnescape)
@@ -171,7 +173,9 @@
         -- let msgD = "Requirement description"
         reqDesc <- maybe
                      (liftEither $ Right "")
-                     (\e -> liftIO $ fromMaybe "" . listToMaybe <$> executeXPath e def)
+                     (\e -> liftIO $
+                              fromMaybe "" . listToMaybe <$> executeXPath e def
+                     )
                      (xfiRequirementDesc xmlFormatInternal)
 
         reqResType <- case xfiRequirementResultType xmlFormatInternal of
diff --git a/src/Language/XMLSpec/PrintTrees.hs b/src/Language/XMLSpec/PrintTrees.hs
--- a/src/Language/XMLSpec/PrintTrees.hs
+++ b/src/Language/XMLSpec/PrintTrees.hs
@@ -288,9 +288,8 @@
       | otherwise                 = text attrType
 
     prettyAttrEnum =
-        parens $ sepBy (text " | ") $
-          map (prettyEnum . fromMaybe [] . getDTDAttrl) children
-      where
+      parens $ sepBy (text " | ") $
+        map (prettyEnum . fromMaybe [] . getDTDAttrl) children
 
     prettyAttrKind kind
       | kind == k_default