diff options
Diffstat (limited to 'src/Zettel/Links.hs')
-rw-r--r-- | src/Zettel/Links.hs | 12 |
1 files changed, 8 insertions, 4 deletions
diff --git a/src/Zettel/Links.hs b/src/Zettel/Links.hs index 39a6f5a..bf5cc2d 100644 --- a/src/Zettel/Links.hs +++ b/src/Zettel/Links.hs @@ -41,8 +41,10 @@ forwardLinkNode zg ident zn = } forwardLink :: ZettelGraph -> ZettelGraph -forwardLink zg = ZettelGraph (Map.mapWithKey (forwardLinkNode zg) $ unZettelGraph zg) - zg.zettelGraphBib +forwardLink zg = + ZettelGraph + (Map.mapWithKey (forwardLinkNode zg) $ unZettelGraph zg) + zg.zettelGraphBib backwardLinkNode :: ZettelGraph -> ZettelId -> Zettel -> Zettel backwardLinkNode graph ident node = Map.foldlWithKey' f node (unZettelGraph graph) @@ -54,8 +56,10 @@ backwardLinkNode graph ident node = Map.foldlWithKey' f node (unZettelGraph grap | otherwise = l backwardLink :: ZettelGraph -> ZettelGraph -backwardLink zg = ZettelGraph (Map.mapWithKey (backwardLinkNode zg) $ unZettelGraph zg) - zg.zettelGraphBib +backwardLink zg = + ZettelGraph + (Map.mapWithKey (backwardLinkNode zg) $ unZettelGraph zg) + zg.zettelGraphBib updatePandocLinksInline :: Inline -> Inline updatePandocLinksInline l@(Link a i (_, t)) |