diff options
Diffstat (limited to 'src/Text/Pandoc/Format.hs')
| -rw-r--r-- | src/Text/Pandoc/Format.hs | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/src/Text/Pandoc/Format.hs b/src/Text/Pandoc/Format.hs index 5e5829553..afd483577 100644 --- a/src/Text/Pandoc/Format.hs +++ b/src/Text/Pandoc/Format.hs @@ -12,6 +12,7 @@ module Text.Pandoc.Format ( FlavoredFormat (..) , ExtensionsConfig (..) , ExtensionsDiff (..) + , diffExtensions , parseFlavoredFormat , applyExtensionsDiff , getExtensionsConfig @@ -59,6 +60,14 @@ instance Monoid ExtensionsDiff where mempty = ExtensionsDiff mempty mempty mappend = (<>) +-- | Calculate the change set to get from one set of extensions to +-- another. +diffExtensions :: Extensions -> Extensions -> ExtensionsDiff +diffExtensions def actual = ExtensionsDiff + { extsToEnable = actual `disableExtensions` def + , extsToDisable = def `disableExtensions` actual + } + -- | Describes the properties of a format. data ExtensionsConfig = ExtensionsConfig { extsDefault :: Extensions -- ^ Extensions enabled by default |