summaryrefslogtreecommitdiff
path: root/test/runTests.hs
diff options
context:
space:
mode:
authorPéter Diviánszky <divipp@gmail.com>2016-02-13 14:54:36 +0100
committerPéter Diviánszky <divipp@gmail.com>2016-02-13 14:54:50 +0100
commit0acea3e60e03418dcc0fe6346d8115769a2b4c17 (patch)
tree556e9e10667bac81560d6e392a4aba55f600b614 /test/runTests.hs
parenta8ece97efac68c03b3eb9c9e962b8a9b1d994519 (diff)
use different kinf of infos
Diffstat (limited to 'test/runTests.hs')
-rw-r--r--test/runTests.hs3
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))