yogsototh/hakyll
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Explode when using mapContext over ListField

Browse source
This commit is contained in:
Jasper Van der Jeugt 2013-08-13 01:38:18 +02:00
parent 0b111066b0
commit faa90283bf
1 changed files with 5 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
src/Hakyll/Web/Template/Context.hs
View file

@ -100,9 +100,11 @@ functionField name value = Context $ \k i -> case words k of
mapContext :: (String -> String) -> Context a -> Context a mapContext :: (String -> String) -> Context a -> Context a
mapContext f (Context c) = Context $ \k i -> do mapContext f (Context c) = Context $ \k i -> do
fld <- c k i fld <- c k i
return $ case fld of case fld of
StringField str -> StringField (f str) StringField str -> return $ StringField (f str)
ListField ctx is -> ListField ctx is ListField _ _ -> fail $
"Hakyll.Web.Template.Context.mapContext: " ++
"can't map over a ListField!"
-------------------------------------------------------------------------------- --------------------------------------------------------------------------------