From 1b320c5b479b7420f142788a7a6f7b88e54aaf3b Mon Sep 17 00:00:00 2001
From: Mirek Kratochvil <exa.exa@gmail.com>
Date: Wed, 7 Jun 2023 00:00:43 +0200
Subject: template work

---
 site.hs | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

(limited to 'site.hs')

diff --git a/site.hs b/site.hs
index 1a88da7..dafe23f 100644
--- a/site.hs
+++ b/site.hs
@@ -66,7 +66,8 @@ loadPage fp = do
         T.unpack . just ("mount point of " ++ fp) $ yml ^? key "mount" . _String
   existing <- use $ pages . to (M.!? mount)
   case existing of
-    Just pi -> error $ "mount for " ++ fp ++ " already exists from " ++ _pagePath pi
+    Just pi ->
+      error $ "mount for " ++ fp ++ " already exists from " ++ _pagePath pi
     _ -> pure ()
   {- save to the state -}
   pages %=
@@ -262,11 +263,10 @@ tagLink = rootUrl . ("tag" </>) . tagPath
 -- | Make metadata for printing out a single hierarchical tag (all levels clickable)
 makeHTagMeta :: [String] -> Site Y.Value
 makeHTagMeta tag = do
-  links <- zip (Y.Null:map fromString tag) . map fromString <$> traverse tagLink (inits tag)
-  pure . Y.array $
-    map
-      (\(t, p) -> Y.object [("tag", t), ("href", p)])
-      links
+  links <-
+    zip (Y.Null : map fromString tag) . map fromString <$>
+    traverse tagLink (inits tag)
+  pure . Y.array $ map (\(t, p) -> Y.object [("tag", t), ("href", p)]) links
 
 -- | Make metadata for printing out a single tag as-is, without levels
 makeHTagLinkMeta :: [String] -> Site Y.Value
-- 
cgit v1.2.3