diff options
author | Péter Diviánszky <divipp@gmail.com> | 2016-05-01 19:13:34 +0200 |
---|---|---|
committer | Péter Diviánszky <divipp@gmail.com> | 2016-05-01 19:13:34 +0200 |
commit | 90e336391673ac1cf9ff582e98e35faf89a8f09d (patch) | |
tree | 0b7a14dbfc5734c07c2ae4ed34cb679fecd10d3f /test | |
parent | 1a7544763729938e7009ead1e375e9bbf413afb0 (diff) |
improve pretty print layout & show desugared source code in .out files
Diffstat (limited to 'test')
-rw-r--r-- | test/runTests.hs | 2 |
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)) |