summaryrefslogtreecommitdiff
path: root/test
diff options
context:
space:
mode:
authorPéter Diviánszky <divipp@gmail.com>2016-05-01 19:13:34 +0200
committerPéter Diviánszky <divipp@gmail.com>2016-05-01 19:13:34 +0200
commit90e336391673ac1cf9ff582e98e35faf89a8f09d (patch)
tree0b7a14dbfc5734c07c2ae4ed34cb679fecd10d3f /test
parent1a7544763729938e7009ead1e375e9bbf413afb0 (diff)
improve pretty print layout & show desugared source code in .out files
Diffstat (limited to 'test')
-rw-r--r--test/runTests.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/test/runTests.hs b/test/runTests.hs
index 2375befd..c2c201f1 100644
--- a/test/runTests.hs
+++ b/test/runTests.hs
@@ -207,7 +207,7 @@ doTest Config{..} (i, fn) = do
207 Left (show -> e) -> Left (unlines $ tab "!Failed" e: listTraceInfos i, Failed) 207 Left (show -> e) -> Left (unlines $ tab "!Failed" e: listTraceInfos i, Failed)
208 Right (fname, Left (show -> e)) 208 Right (fname, Left (show -> e))
209 -> Right ("typechecked module" 209 -> Right ("typechecked module"
210 , unlines $ -- "------------ desugared source code": map ppShow desug ++ 210 , unlines $ "------------ desugared source code": map ppShow desug ++
211 e: listAllInfos i) 211 e: listAllInfos i)
212 Right (fname, Right (e, te)) 212 Right (fname, Right (e, te))
213 | te == outputType -> Right ("compiled pipeline", prettyShowUnlines $ compilePipeline OpenGL33 (e, te)) 213 | te == outputType -> Right ("compiled pipeline", prettyShowUnlines $ compilePipeline OpenGL33 (e, te))