diff options
Diffstat (limited to 'examples/HelloEmbedded.hs')
| -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 |