diff options
| author | Péter Diviánszky <divipp@gmail.com> | 2016-05-01 16:51:22 +0200 |
|---|---|---|
| committer | Péter Diviánszky <divipp@gmail.com> | 2016-05-01 16:51:22 +0200 |
| commit | 1a7544763729938e7009ead1e375e9bbf413afb0 (patch) | |
| tree | 62af78c28cd91597fe40391d4020cb47f697334a /test/runTests.hs | |
| parent | 11b4a98c3fc7014cdef123fea4081d58e8edbaa2 (diff) | |
better namespace handling in pretty print
Diffstat (limited to 'test/runTests.hs')
| -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 96ea6383..2375befd 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)) |