diff options
Diffstat (limited to 'site.hs')
| -rw-r--r-- | site.hs | 12 |
1 files changed, 6 insertions, 6 deletions
@@ -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 |