diff options
Diffstat (limited to 'test/runTests.hs')
-rw-r--r-- | test/runTests.hs | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/test/runTests.hs b/test/runTests.hs index 75f88525..5d2cc860 100644 --- a/test/runTests.hs +++ b/test/runTests.hs | |||
@@ -186,8 +186,7 @@ doTest Config{..} (i, fn) = do | |||
186 | Left e -> Left (tab "!Failed" e, Failed) | 186 | Left e -> Left (tab "!Failed" e, Failed) |
187 | Right (fname, Left e, i) | 187 | Right (fname, Left e, i) |
188 | -> Right ("typechecked module" | 188 | -> Right ("typechecked module" |
189 | , unlines $ e: "tooltips:": [ ppShow r ++ " " ++ intercalate " | " m | 189 | , unlines $ e: listAllInfos i) |
190 | | (r, m) <- listInfos i]) | ||
191 | Right (fname, Right (e, te), i) | 190 | Right (fname, Right (e, te), i) |
192 | | True <- i `deepseq` False -> error "impossible" | 191 | | True <- i `deepseq` False -> error "impossible" |
193 | | te == outputType -> Right ("compiled pipeline", show $ compilePipeline OpenGL33 (e, te)) | 192 | | te == outputType -> Right ("compiled pipeline", show $ compilePipeline OpenGL33 (e, te)) |