@@ -43,6 +43,7 @@ module Hakyll.Core.Identifier.Pattern
44 , complement
44 , complement
45 , withVersion
45 , withVersion
46 , fromLiteral
47 , fromLiteral
48 -- * Applying patterns
49 -- * Applying patterns
@@ -227,6 +228,12 @@ withVersion :: Pattern -> String -> Pattern
227withVersion p v = optimize $ And p $ fromVersion $ Just v
228withVersion p v = optimize $ And p $ fromVersion $ Just v
231+--------------------------------------------------------------------------------
232+-- | Match only if the identifier has no version set
233+noVersion :: Pattern -> Pattern
234+noVersion p = optimize $ And p $ fromVersion Nothing
230--------------------------------------------------------------------------------
237--------------------------------------------------------------------------------
231-- | Check if a pattern is a literal. @\"*.markdown\"@ is not a literal but
238-- | Check if a pattern is a literal. @\"*.markdown\"@ is not a literal but
232-- @\"posts.markdown\"@ is.
239-- @\"posts.markdown\"@ is.