diff options
author | Yann Herklotz <git@yannherklotz.com> | 2023-05-28 01:57:20 +0100 |
---|---|---|
committer | Yann Herklotz <git@yannherklotz.com> | 2023-05-28 01:57:20 +0100 |
commit | 2783a33b0d4a9436343c88e1ed90fae03b8fb4bb (patch) | |
tree | 986a7287ac0f19d1a95cfa02e77415d7068324d9 /src/Zettel/Links.hs | |
parent | fcee1c0c8c9c8ddce45f26c566b5eb8527e9dd0b (diff) | |
download | zk-visual-2783a33b0d4a9436343c88e1ed90fae03b8fb4bb.tar.gz zk-visual-2783a33b0d4a9436343c88e1ed90fae03b8fb4bb.zip |
Format all files using ormolu
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)) |