From 779fa66c7b1719e071dc3f4d38a4cc2feb9492c6 Mon Sep 17 00:00:00 2001 From: David Parrish Date: Sun, 25 Aug 2019 09:02:01 -0400 Subject: Add getCategory tests --- lib/Hakyll/Web/Tags.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'lib') diff --git a/lib/Hakyll/Web/Tags.hs b/lib/Hakyll/Web/Tags.hs index 13e8cd3..43f6c4f 100644 --- a/lib/Hakyll/Web/Tags.hs +++ b/lib/Hakyll/Web/Tags.hs @@ -113,7 +113,7 @@ getTags identifier = do -------------------------------------------------------------------------------- --- | Obtain categories from a page. +-- | Obtain category from a page. getCategory :: MonadMetadata m => Identifier -> m [String] getCategory = return . return . takeBaseName . takeDirectory . toFilePath -- cgit v1.2.3