
-----------------------------------------------------------------------------
-- | Build archives from a pattern, grouped by date formated in the fmt pattern
buildArchives :: (MonadMetadata m, Functor m) =>
                String
              -> Pattern
              -> (String -> Identifier)
              -> m Archives
buildArchives fmt pattern = (Archives <$>) .