diff options
author | Péter Diviánszky <divipp@gmail.com> | 2016-04-29 12:52:37 +0200 |
---|---|---|
committer | Péter Diviánszky <divipp@gmail.com> | 2016-04-29 12:52:37 +0200 |
commit | e57768c37bc8cbc85b58bf47a71562d0d782c698 (patch) | |
tree | 471ede50cbdc347faab61667e19c2e3350f4c200 /test/runTests.hs | |
parent | 58a479b781935155e09f565d2488693850bf21c6 (diff) |
use Doc instead of String is several places
Diffstat (limited to 'test/runTests.hs')
-rw-r--r-- | test/runTests.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/test/runTests.hs b/test/runTests.hs index a0edf147..77ed43ea 100644 --- a/test/runTests.hs +++ b/test/runTests.hs | |||
@@ -204,15 +204,15 @@ doTest Config{..} (i, fn) = do | |||
204 | Right (fname, x@Right{}) -> Right (fname, x) <$ removeFromCache fname | 204 | Right (fname, x@Right{}) -> Right (fname, x) <$ removeFromCache fname |
205 | 205 | ||
206 | f (i, e) | not $ isReject fn = case e of | 206 | f (i, e) | not $ isReject fn = case e of |
207 | Left 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 e) -> Right ("typechecked module" , unlines $ e: listAllInfos i) | 208 | Right (fname, Left (show -> e)) -> Right ("typechecked module" , unlines $ e: listAllInfos i) |
209 | Right (fname, Right (e, te)) | 209 | Right (fname, Right (e, te)) |
210 | | te == outputType -> Right ("compiled pipeline", prettyShowUnlines $ compilePipeline OpenGL33 (e, te)) | 210 | | te == outputType -> Right ("compiled pipeline", prettyShowUnlines $ compilePipeline OpenGL33 (e, te)) |
211 | | e == trueExp -> Right ("reducted main", ppShow $ unfixlabel e) | 211 | | e == trueExp -> Right ("reducted main", ppShow $ unfixlabel e) |
212 | | te == boolType -> Left (tab "!Failed" $ "main should be True but it is \n" ++ ppShow e, Failed) | 212 | | te == boolType -> Left (tab "!Failed" $ "main should be True but it is \n" ++ ppShow e, Failed) |
213 | | otherwise -> Right ("reduced main " ++ ppShow te, ppShow e) | 213 | | otherwise -> Right ("reduced main " ++ ppShow te, ppShow e) |
214 | | otherwise = case e of | 214 | | otherwise = case e of |
215 | Left e -> Right ("error message", unlines $ e: listAllInfos i) | 215 | Left (show -> e) -> Right ("error message", unlines $ e: listAllInfos i) |
216 | Right _ -> Left (tab "!Failed" "failed to catch error", Failed) | 216 | Right _ -> Left (tab "!Failed" "failed to catch error", Failed) |
217 | 217 | ||
218 | tab msg | 218 | tab msg |