From b83b90b2667dbfd2cd208cd4ca41d893513ff800 Mon Sep 17 00:00:00 2001
From: Jasper Van der Jeugt <m@jaspervdj.be>
Date: Mon, 7 Jan 2013 15:57:23 +0100
Subject: Nicer fail for Compiler

---
 src/Hakyll/Core/Compiler/Internal.hs | 3 +++
 1 file changed, 3 insertions(+)

(limited to 'src/Hakyll/Core/Compiler')

diff --git a/src/Hakyll/Core/Compiler/Internal.hs b/src/Hakyll/Core/Compiler/Internal.hs
index be49e9f..267fe26 100644
--- a/src/Hakyll/Core/Compiler/Internal.hs
+++ b/src/Hakyll/Core/Compiler/Internal.hs
@@ -126,6 +126,9 @@ instance Monad Compiler where
             CompilerRequire i c' -> return $ CompilerRequire i $ c' >>= f
     {-# INLINE (>>=) #-}
 
+    fail = compilerThrow
+    {-# INLINE fail #-}
+
 
 --------------------------------------------------------------------------------
 instance Applicative Compiler where
-- 
cgit v1.2.3