From 8cfa962005938cc441523ca55f3770fe55602036 Mon Sep 17 00:00:00 2001 From: Jasper Van der Jeugt Date: Sun, 6 Mar 2011 15:56:22 +0100 Subject: Add ErrorT to CompilerM monad stack --- src/Hakyll/Core/Run.hs | 9 +++++++-- 1 file changed, 7 insertions(+), 2 deletions(-) (limited to 'src/Hakyll/Core/Run.hs') diff --git a/src/Hakyll/Core/Run.hs b/src/Hakyll/Core/Run.hs index 09864be..1fefff8 100644 --- a/src/Hakyll/Core/Run.hs +++ b/src/Hakyll/Core/Run.hs @@ -188,7 +188,7 @@ runCompilers ((id', compiler) : compilers) = Runtime $ do case result of -- Compile rule for one item, easy stuff - CompileRule compiled -> do + Right (CompileRule compiled) -> do case runRoutes routes id' of Nothing -> return () Just url -> timed logger ("Routing to " ++ url) $ do @@ -202,6 +202,11 @@ runCompilers ((id', compiler) : compilers) = Runtime $ do unRuntime $ runCompilers compilers -- Metacompiler, slightly more complicated - MetaCompileRule newCompilers -> + Right (MetaCompileRule newCompilers) -> -- Actually I was just kidding, it's not hard at all unRuntime $ addNewCompilers compilers newCompilers + + -- Some error happened, log and continue + Left err -> do + thrown logger err + unRuntime $ runCompilers compilers -- cgit v1.2.3