diff options
Diffstat (limited to 'src/Zettel/Types.hs')
-rw-r--r-- | src/Zettel/Types.hs | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/src/Zettel/Types.hs b/src/Zettel/Types.hs index 580052b..3b68ca9 100644 --- a/src/Zettel/Types.hs +++ b/src/Zettel/Types.hs @@ -154,9 +154,11 @@ walkMZettelGraph f b = do newBib <- traverse (walkM f) (zettelGraphBib b) return $ ZettelGraph res newBib -queryZettelGraph - :: (Monoid a1, Walkable a2 Zettel, Walkable a2 Pandoc) => - (a2 -> a1) -> ZettelGraph -> a1 +queryZettelGraph :: + (Monoid a1, Walkable a2 Zettel, Walkable a2 Pandoc) => + (a2 -> a1) -> + ZettelGraph -> + a1 queryZettelGraph f g = query f (unZettelGraph g) <> maybe mempty (query f) (zettelGraphBib g) instance Walkable Block ZettelGraph where |