ogma-language-xmlspec 1.14.0 → 1.15.0
raw patch · 4 files changed
+16/−7 lines, 4 filesdep ~ogma-specPVP ok
version bump matches the API change (PVP)
Dependency ranges changed: ogma-spec
API changes (from Hackage documentation)
Files
- CHANGELOG.md +6/−0
- ogma-language-xmlspec.cabal +2/−2
- src/Language/XMLSpec/Parser.hs +6/−2
- src/Language/XMLSpec/PrintTrees.hs +2/−3
CHANGELOG.md view
@@ -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).
ogma-language-xmlspec.cabal view
@@ -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
src/Language/XMLSpec/Parser.hs view
@@ -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
src/Language/XMLSpec/PrintTrees.hs view
@@ -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