From 2783a33b0d4a9436343c88e1ed90fae03b8fb4bb Mon Sep 17 00:00:00 2001
From: Yann Herklotz <git@yannherklotz.com>
Date: Sun, 28 May 2023 01:57:20 +0100
Subject: Format all files using ormolu

---
 src/Zettel/Links.hs | 12 ++++++++----
 1 file changed, 8 insertions(+), 4 deletions(-)

(limited to 'src/Zettel/Links.hs')

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))
-- 
cgit