From 25b8c8b199082ebbc41d1af03fc19202b798f156 Mon Sep 17 00:00:00 2001 From: Jasper Van der Jeugt Date: Sun, 25 Nov 2012 10:45:55 +0100 Subject: A bit of cleanup --- src/Hakyll/Core/Identifier/Pattern.hs | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'src/Hakyll/Core/Identifier/Pattern.hs') diff --git a/src/Hakyll/Core/Identifier/Pattern.hs b/src/Hakyll/Core/Identifier/Pattern.hs index 97806d5..61efc65 100644 --- a/src/Hakyll/Core/Identifier/Pattern.hs +++ b/src/Hakyll/Core/Identifier/Pattern.hs @@ -149,7 +149,7 @@ instance Monoid Pattern where -------------------------------------------------------------------------------- --- | THis is necessary for good 'isLiteral' results +-- | This is necessary for good 'isLiteral' results optimize :: Pattern -> Pattern optimize (Complement x) = Complement (optimize x) optimize (And x Everything) = x @@ -189,6 +189,7 @@ fromRegex = Regex -------------------------------------------------------------------------------- +-- | Create a pattern which matches all items with the given version. fromVersion :: Maybe String -> Pattern fromVersion = Version -- cgit v1.2.3