@@ -23,7 +23,7 @@ module Hakyll.Web.Template.Context
2323 , modificationTimeField
2424 , modificationTimeFieldWith
2525 , teaserField
26− , teaserFieldWithSeperator
26+ , teaserFieldWithSeparator
2727 , missingField
2828 ) where
2929
@@ -319,16 +319,19 @@ modificationTimeFieldWith locale key fmt = field key $ \i -> do
319319teaserField :: String -- ^ Key to use
320320 -> Snapshot -- ^ Snapshot to load
321321 -> Context String -- ^ Resulting context
322−teaserField = teaserFieldWithSeperator teaserSeparator
322+teaserField = teaserFieldWithSeparator teaserSeparator
323323
324−-- | A context with "teaser" key which contain a teaser of the item, defined as the snapshot content before the teaser separator.
325−-- The item is loaded from the given snapshot (which should be saved
326−-- in the user code before any templates are applied).
327−teaserFieldWithSeperator :: String -- ^ Separator to use
324+
325+--------------------------------------------------------------------------------
326+-- | A context with "teaser" key which contain a teaser of the item, defined as
327+-- the snapshot content before the teaser separator. The item is loaded from the
328+-- given snapshot (which should be saved in the user code before any templates
329+-- are applied).
330+teaserFieldWithSeparator :: String -- ^ Separator to use
328331 -> String -- ^ Key to use
329332 -> Snapshot -- ^ Snapshot to load
330333 -> Context String -- ^ Resulting context
331−teaserFieldWithSeperator separator key snapshot = field key $ \item -> do
334+teaserFieldWithSeparator separator key snapshot = field key $ \item -> do
332335 body <- itemBody <$> loadSnapshot (itemIdentifier item) snapshot
333336 case needlePrefix separator body of
334337 Nothing -> fail $