diff options
| author | Csaba Hruska <csaba.hruska@gmail.com> | 2017-01-25 22:58:55 +0000 |
|---|---|---|
| committer | Csaba Hruska <csaba.hruska@gmail.com> | 2017-01-25 22:58:55 +0000 |
| commit | 83f4f04f20d9a40380ed2ab16912be19b6379173 (patch) | |
| tree | 2bb7761eb77ad0e8394d1060d106f4d909348d9f | |
| parent | 243637c828e2b49fd2472ab55352e85c1794e778 (diff) | |
fix embedded example
| -rw-r--r-- | examples/HelloEmbedded.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/examples/HelloEmbedded.hs b/examples/HelloEmbedded.hs index ad1f126..7452874 100644 --- a/examples/HelloEmbedded.hs +++ b/examples/HelloEmbedded.hs | |||
| @@ -18,7 +18,7 @@ main :: IO () | |||
| 18 | main = do | 18 | main = do |
| 19 | -- compile hello.lc to graphics pipeline description | 19 | -- compile hello.lc to graphics pipeline description |
| 20 | pipelineDesc <- LambdaCube.compileMain ["."] OpenGL33 "hello.lc" >>= \case | 20 | pipelineDesc <- LambdaCube.compileMain ["."] OpenGL33 "hello.lc" >>= \case |
| 21 | Left err -> fail $ "compile error:\n" ++ err | 21 | Left err -> fail $ "compile error:\n" ++ ppShow err |
| 22 | Right pd -> return pd | 22 | Right pd -> return pd |
| 23 | 23 | ||
| 24 | win <- initWindow "LambdaCube 3D DSL Hello World" 640 640 | 24 | win <- initWindow "LambdaCube 3D DSL Hello World" 640 640 |