diff options
| author | John MacFarlane <[email protected]> | 2023-08-31 09:27:47 -0700 |
|---|---|---|
| committer | John MacFarlane <[email protected]> | 2023-08-31 09:27:47 -0700 |
| commit | 71c02d51168ee4d39ec6baed324f1f5e781a007f (patch) | |
| tree | 4c0525847421ba9f9a311d8a90d0bcab979453ff | |
| parent | db72432b0cca331b5707a094f368a4286e43ccea (diff) | |
Fix spacing errors.
| -rw-r--r-- | src/Text/Pandoc/Readers/JATS.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Text/Pandoc/Readers/JATS.hs b/src/Text/Pandoc/Readers/JATS.hs index 736c69173..7d93da547 100644 --- a/src/Text/Pandoc/Readers/JATS.hs +++ b/src/Text/Pandoc/Readers/JATS.hs @@ -468,7 +468,7 @@ getLicense e = do let licenseLink = metaElementAliRef e "link" let licenseText = metaElement e "license-p" "text" return $ Map.fromList (catMaybes $ [licenseType, licenseLink, licenseText]) - + metaElement :: Element -> Text -> Text -> Maybe (Text, MetaValue) metaElement e child key = case filterElement (named child) e of @@ -476,7 +476,7 @@ metaElement e child key = Nothing -> Nothing metaElementAliRef :: Element -> Text -> Maybe (Text, MetaValue) -metaElementAliRef e key = +metaElementAliRef e key = case filterElement isAliLicenseRef e of Just content -> Just (key, toMetaValue $ strContent content) Nothing -> Nothing |
