Added a comment explaining "teaserContext" function.

This commit is contained in:
Ivan N. Veselov 2013-05-04 17:48:37 +03:00
parent 2651627189
commit 9ad0d38f43

View file

@ -92,6 +92,9 @@ defaultContext =
missingField
--------------------------------------------------------------------------------
-- | A context with "teaser" key which contain a teaser of the item.
-- The item is loaded from the given snapshot (which should be saved
-- in the user code before any templates are applied).
teaserContext :: Snapshot -> Context String
teaserContext snapshot = field "teaser" $ \item ->
(needlePrefix teaserSeparator . itemBody) <$>