diff options
author | Péter Diviánszky <divipp@gmail.com> | 2016-05-12 17:56:48 +0200 |
---|---|---|
committer | Péter Diviánszky <divipp@gmail.com> | 2016-05-12 17:56:48 +0200 |
commit | 4dd21ad51771619a0f750122f928872ed48e8c3b (patch) | |
tree | 759ca8b066d4bf34e83bc0b192753e5a7c6c0ddb /test/runTests.hs | |
parent | 9e0ae891c28c7212ab69c117b08d5b656d74cfde (diff) |
refactor hashed name handling
Diffstat (limited to 'test/runTests.hs')
-rw-r--r-- | test/runTests.hs | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/test/runTests.hs b/test/runTests.hs index 159a2bfa..8b6e1d4d 100644 --- a/test/runTests.hs +++ b/test/runTests.hs | |||
@@ -32,7 +32,6 @@ import qualified Data.Text.IO as TIO | |||
32 | import Text.Printf | 32 | import Text.Printf |
33 | 33 | ||
34 | import LambdaCube.Compiler | 34 | import LambdaCube.Compiler |
35 | import LambdaCube.Compiler.DeBruijn | ||
36 | import LambdaCube.Compiler.Pretty hiding ((</>)) | 35 | import LambdaCube.Compiler.Pretty hiding ((</>)) |
37 | 36 | ||
38 | ------------------------------------------ utils | 37 | ------------------------------------------ utils |
@@ -235,7 +234,7 @@ doTest Config{..} (i, fn) = do | |||
235 | | te == outputType -> Right ("compiled pipeline", prettyShowUnlines $ compilePipeline OpenGL33 (ET e te)) | 234 | | te == outputType -> Right ("compiled pipeline", prettyShowUnlines $ compilePipeline OpenGL33 (ET e te)) |
236 | | e == trueExp -> Right ("reducted main", de) | 235 | | e == trueExp -> Right ("reducted main", de) |
237 | | te == boolType -> Left (tab "!Failed" $ "main should be True but it is \n" ++ simpleShow res, Failed) | 236 | | te == boolType -> Left (tab "!Failed" $ "main should be True but it is \n" ++ simpleShow res, Failed) |
238 | | otherwise -> Right ("reduced main :: " ++ ppShow te, de) | 237 | | otherwise -> Right ("reduced main :: " ++ simpleShow (mkDoc (True, False) te), de) |
239 | where | 238 | where |
240 | de = simpleShow $ vcat $ (DAnn "main" $ pShow te) : (DLet "=" "main" res): showGE fname ge | 239 | de = simpleShow $ vcat $ (DAnn "main" $ pShow te) : (DLet "=" "main" res): showGE fname ge |
241 | res = mkDoc (True, False) e | 240 | res = mkDoc (True, False) e |