summaryrefslogtreecommitdiffstats
path: root/src/Zettel/Links.hs
diff options
context:
space:
mode:
authorYann Herklotz <git@yannherklotz.com>2023-05-28 01:57:20 +0100
committerYann Herklotz <git@yannherklotz.com>2023-05-28 01:57:20 +0100
commit2783a33b0d4a9436343c88e1ed90fae03b8fb4bb (patch)
tree986a7287ac0f19d1a95cfa02e77415d7068324d9 /src/Zettel/Links.hs
parentfcee1c0c8c9c8ddce45f26c566b5eb8527e9dd0b (diff)
downloadzk-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.hs12
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))