diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2022-09-27 21:21:06 -0700 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2022-09-27 21:21:06 -0700 |
| commit | 1e2e0290486c0de2b9ef93917489386521763054 (patch) | |
| tree | 6a49a0be7a788a0b6b4e873cfe52e95f5673bd56 /src | |
| parent | cc2078530c84527f968eef5b247787a4da949a61 (diff) | |
T.P.Citeproc.MetaValue: remove unused function metaValueToPath
Diffstat (limited to 'src')
| -rw-r--r-- | src/Text/Pandoc/Citeproc/MetaValue.hs | 4 |
1 files changed, 0 insertions, 4 deletions
diff --git a/src/Text/Pandoc/Citeproc/MetaValue.hs b/src/Text/Pandoc/Citeproc/MetaValue.hs index b4de79426..ce7b1285c 100644 --- a/src/Text/Pandoc/Citeproc/MetaValue.hs +++ b/src/Text/Pandoc/Citeproc/MetaValue.hs @@ -3,7 +3,6 @@ module Text.Pandoc.Citeproc.MetaValue ( referenceToMetaValue , metaValueToReference , metaValueToText - , metaValueToPath ) where @@ -28,9 +27,6 @@ metaValueToText (MetaBlocks bls) = Just $ stringify bls metaValueToText (MetaList xs) = T.unwords <$> mapM metaValueToText xs metaValueToText _ = Nothing -metaValueToPath :: MetaValue -> Maybe FilePath -metaValueToPath = fmap T.unpack . metaValueToText - metaValueToBool :: MetaValue -> Maybe Bool metaValueToBool (MetaBool b) = Just b metaValueToBool (MetaString "true") = Just True |