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 /backendtest | |
| parent | 58a479b781935155e09f565d2488693850bf21c6 (diff) | |
use Doc instead of String is several places
Diffstat (limited to 'backendtest')
| -rw-r--r-- | backendtest/EditorExamplesTest.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/backendtest/EditorExamplesTest.hs b/backendtest/EditorExamplesTest.hs index 0bbdb572..a4434d2d 100644 --- a/backendtest/EditorExamplesTest.hs +++ b/backendtest/EditorExamplesTest.hs | |||
| @@ -80,7 +80,7 @@ getRenderJob = do | |||
| 80 | ppls <- forM tests $ \name -> do | 80 | ppls <- forM tests $ \name -> do |
| 81 | putStrLn $ "compile: " ++ name | 81 | putStrLn $ "compile: " ++ name |
| 82 | LambdaCube.compileMain [path] OpenGL33 name >>= \case | 82 | LambdaCube.compileMain [path] OpenGL33 name >>= \case |
| 83 | Left err -> fail $ "compile error:\n" ++ err | 83 | Left err -> fail $ "compile error:\n" ++ show err |
| 84 | Right ppl -> return $ PipelineInfo | 84 | Right ppl -> return $ PipelineInfo |
| 85 | { pipelineName = path </> name | 85 | { pipelineName = path </> name |
| 86 | , pipeline = ppl | 86 | , pipeline = ppl |