diff options
| author | Jasper Van der Jeugt <m@jaspervdj.be> | 2013-01-07 15:57:23 +0100 |
|---|---|---|
| committer | Jasper Van der Jeugt <m@jaspervdj.be> | 2013-01-07 15:57:23 +0100 |
| commit | b83b90b2667dbfd2cd208cd4ca41d893513ff800 (patch) | |
| tree | 39d8973f3fb44f6b49c8c452bec337654a8b19e2 /src/Hakyll | |
| parent | bbc2631c76db01e85ac5c4e75b1babb6c5b05697 (diff) | |
| download | hakyll-b83b90b2667dbfd2cd208cd4ca41d893513ff800.tar.gz | |
Nicer fail for Compiler
Diffstat (limited to 'src/Hakyll')
| -rw-r--r-- | src/Hakyll/Core/Compiler/Internal.hs | 3 |
1 files changed, 3 insertions, 0 deletions
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 |