aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJohn MacFarlane <[email protected]>2023-08-31 09:27:47 -0700
committerJohn MacFarlane <[email protected]>2023-08-31 09:27:47 -0700
commit71c02d51168ee4d39ec6baed324f1f5e781a007f (patch)
tree4c0525847421ba9f9a311d8a90d0bcab979453ff
parentdb72432b0cca331b5707a094f368a4286e43ccea (diff)
Fix spacing errors.
-rw-r--r--src/Text/Pandoc/Readers/JATS.hs4
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