diff options
Diffstat (limited to 'src/Zettel/Common.hs')
| -rw-r--r-- | src/Zettel/Common.hs | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/src/Zettel/Common.hs b/src/Zettel/Common.hs index f471321..c2fe81b 100644 --- a/src/Zettel/Common.hs +++ b/src/Zettel/Common.hs @@ -38,8 +38,10 @@ refreshPandocMetaZettel zid z = z {zettelBody = refreshPandocMetaZettel' zid z . clearPandocAttr $ zettelBody z} refreshPandocMeta :: ZettelGraph -> ZettelGraph -refreshPandocMeta zg = ZettelGraph (Map.mapWithKey refreshPandocMetaZettel zg.unZettelGraph) - zg.zettelGraphBib +refreshPandocMeta zg = + ZettelGraph + (Map.mapWithKey refreshPandocMetaZettel zg.unZettelGraph) + zg.zettelGraphBib parseIds :: Text -> Text parseIds t |