diff options
| author | Jasper Van der Jeugt <jaspervdj@gmail.com> | 2011-03-07 11:14:20 +0100 |
|---|---|---|
| committer | Jasper Van der Jeugt <jaspervdj@gmail.com> | 2011-03-07 11:14:20 +0100 |
| commit | cb4db8b9d53dcdfc5a927d5146d21c5c85d955cb (patch) | |
| tree | 584e163a85f2895a19d327a600efc0c957d59a5f /src/Hakyll/Core/Compiler.hs | |
| parent | b9bc7f90e1d1f1e4d4fd41870b4ed487636df7db (diff) | |
| download | hakyll-cb4db8b9d53dcdfc5a927d5146d21c5c85d955cb.tar.gz | |
Throw nice error in cached
Diffstat (limited to 'src/Hakyll/Core/Compiler.hs')
| -rw-r--r-- | src/Hakyll/Core/Compiler.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Hakyll/Core/Compiler.hs b/src/Hakyll/Core/Compiler.hs index 5fb7b01..371594f 100644 --- a/src/Hakyll/Core/Compiler.hs +++ b/src/Hakyll/Core/Compiler.hs @@ -275,9 +275,9 @@ cached name (Compiler d j) = Compiler d $ const $ CompilerM $ do return v else do v <- liftIO $ storeGet store name identifier case v of Just v' -> return v' - Nothing -> error' + Nothing -> throwError error' where - error' = error "Hakyll.Core.Compiler.cached: Cache corrupt!" + error' = "Hakyll.Core.Compiler.cached: Cache corrupt!" -- | Create an unsafe compiler from a function in IO -- |