template work

1 files changed, 6 insertions, 6 deletions

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