diff options
| author | Jasper Van der Jeugt <m@jaspervdj.be> | 2012-11-25 10:45:55 +0100 |
|---|---|---|
| committer | Jasper Van der Jeugt <m@jaspervdj.be> | 2012-11-25 10:45:55 +0100 |
| commit | 25b8c8b199082ebbc41d1af03fc19202b798f156 (patch) | |
| tree | 93fe71723ce3f7288b465037fb6c9a1198514e22 /src/Hakyll/Core/Identifier/Pattern.hs | |
| parent | cae87891543babe1a0ec989546cfabcb451bd890 (diff) | |
| download | hakyll-25b8c8b199082ebbc41d1af03fc19202b798f156.tar.gz | |
A bit of cleanup
Diffstat (limited to 'src/Hakyll/Core/Identifier/Pattern.hs')
| -rw-r--r-- | src/Hakyll/Core/Identifier/Pattern.hs | 3 |
1 files changed, 2 insertions, 1 deletions
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 |