From 0e925e71e18d61f9b4eee715378946f47ad0e819 Mon Sep 17 00:00:00 2001 From: Jasper Van der Jeugt Date: Thu, 29 Nov 2012 13:47:47 +0100 Subject: [PATCH] Better error message for Context mempty --- src/Hakyll/Web/Template/Context.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/Hakyll/Web/Template/Context.hs b/src/Hakyll/Web/Template/Context.hs index 67c4070..084a42e 100644 --- a/src/Hakyll/Web/Template/Context.hs +++ b/src/Hakyll/Web/Template/Context.hs @@ -51,7 +51,7 @@ newtype Context a = Context -------------------------------------------------------------------------------- instance Monoid (Context a) where - mempty = Context $ \_ _ -> empty + mempty = missingField mappend (Context f) (Context g) = Context $ \k i -> f k i <|> g k i