diff options
author | Jasper Van der Jeugt <m@jaspervdj.be> | 2013-04-04 00:26:05 +0200 |
---|---|---|
committer | Jasper Van der Jeugt <m@jaspervdj.be> | 2013-04-04 00:26:05 +0200 |
commit | cbfc7c18e1aa6c498d2fc7bdecf2f127b6582dbd (patch) | |
tree | abf6e6492f1d8e1588056daec95ef000d609b1f9 /tests/TestSuite | |
parent | c40cf286afacd130c1ddd28abacb3c484895076b (diff) | |
download | hakyll-cbfc7c18e1aa6c498d2fc7bdecf2f127b6582dbd.tar.gz |
Debug info for Alternative instances
See #126
Diffstat (limited to 'tests/TestSuite')
-rw-r--r-- | tests/TestSuite/Util.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/tests/TestSuite/Util.hs b/tests/TestSuite/Util.hs index ef8768c..e727ecb 100644 --- a/tests/TestSuite/Util.hs +++ b/tests/TestSuite/Util.hs @@ -12,6 +12,7 @@ module TestSuite.Util -------------------------------------------------------------------------------- +import Data.List (intercalate) import Data.Monoid (mempty) import qualified Data.Set as S import Test.Framework @@ -78,7 +79,7 @@ testCompilerDone store provider underlying compiler = do CompilerDone x _ -> return x CompilerError e -> error $ "TestSuite.Util.testCompilerDone: compiler " ++ show underlying ++ - " threw: " ++ e + " threw: " ++ intercalate "; " e CompilerRequire i _ -> error $ "TestSuite.Util.testCompilerDone: compiler " ++ show underlying ++ " requires: " ++ show i |