pretty print pipelines in .out files

1 files changed, 1 insertions, 1 deletions

diff --git a/test/runTests.hs b/test/runTests.hs
index 5d2cc860..5c3cd2f4 100644
--- a/test/runTests.hs
+++ b/test/runTests.hs
@@ -189,7 +189,7 @@ doTest Config{..} (i, fn) = do
                      , unlines $ e: listAllInfos i)
         Right (fname, Right (e, te), i)
             | True <- i `deepseq` False -> error "impossible"
-            | te == outputType -> Right ("compiled pipeline", show $ compilePipeline OpenGL33 (e, te))
+            | te == outputType -> Right ("compiled pipeline", prettyShowUnlines $ compilePipeline OpenGL33 (e, te))
             | e == trueExp -> Right ("reducted main", ppShow e)
             | te == boolType -> Left (tab "!Failed" $ "main should be True but it is \n" ++ ppShow e, Failed)
             | otherwise -> Right ("reduced main " ++ ppShow te, ppShow e)