diff options
| author | Jasper Van der Jeugt <m@jaspervdj.be> | 2013-01-06 09:51:09 +0100 |
|---|---|---|
| committer | Jasper Van der Jeugt <m@jaspervdj.be> | 2013-01-06 09:51:09 +0100 |
| commit | 18b6ac5ad42e50e75b9ee9fcfc8aef00f5a00957 (patch) | |
| tree | 57beaf14230266e7eae2a4016625359593163ab6 /src/Hakyll/Core/Identifier | |
| parent | 6b7fbad7fe8634fd3c1fec37636bde7609270d31 (diff) | |
| download | hakyll-18b6ac5ad42e50e75b9ee9fcfc8aef00f5a00957.tar.gz | |
Add create in addition to match
Diffstat (limited to 'src/Hakyll/Core/Identifier')
| -rw-r--r-- | src/Hakyll/Core/Identifier/Pattern.hs | 14 |
1 files changed, 0 insertions, 14 deletions
diff --git a/src/Hakyll/Core/Identifier/Pattern.hs b/src/Hakyll/Core/Identifier/Pattern.hs index 3a07219..fb9c4b8 100644 --- a/src/Hakyll/Core/Identifier/Pattern.hs +++ b/src/Hakyll/Core/Identifier/Pattern.hs @@ -44,7 +44,6 @@ module Hakyll.Core.Identifier.Pattern , complement , withVersion , noVersion - , fromLiteral -- * Applying patterns , matches @@ -235,19 +234,6 @@ noVersion p = optimize $ And p $ fromVersion Nothing -------------------------------------------------------------------------------- --- | Check if a pattern is a literal. @\"*.markdown\"@ is not a literal but --- @\"posts.markdown\"@ is. -fromLiteral :: Pattern -> Maybe Identifier -fromLiteral pattern = case pattern of - Glob p -> fmap fromFilePath $ foldr fromLiteral' (Just "") p - _ -> Nothing - where - fromLiteral' (Literal x) (Just y) = Just $ x ++ y - fromLiteral' _ _ = Nothing - - - --------------------------------------------------------------------------------- -- | Check if an identifier matches a pattern matches :: Pattern -> Identifier -> Bool matches Everything _ = True |