From de23f4a175e5ef33aa3c12c4ca64c610626e47bf Mon Sep 17 00:00:00 2001
From: Csaba Hruska <csaba.hruska@gmail.com>
Date: Tue, 12 May 2015 19:14:36 +0100
Subject: fix array view construction functions

---
 SampleIR.hs | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

(limited to 'SampleIR.hs')

diff --git a/SampleIR.hs b/SampleIR.hs
index 4766d9e..8c9a437 100644
--- a/SampleIR.hs
+++ b/SampleIR.hs
@@ -14,6 +14,7 @@ import Text.Show.Pretty
 import Backend.GL as GL
 import Backend.GL.Mesh
 import IR as IR
+import Type
 
 import System.Environment
 
@@ -136,7 +137,8 @@ main = do
     addMesh pplInput "stream" gpuMonkey []
 
     let setup = do
-          pplRes <- compileMain "../lambdacube-dsl/tests/accept" srcName
+          let sn = N ExpNS [] srcName (NameInfo Nothing mempty)
+          pplRes <- compileMain "../lambdacube-dsl/tests/accept" sn
           case pplRes of
             Left err -> putStrLn ("error: " ++ err) >> return Nothing
             Right ppl -> do
@@ -163,6 +165,7 @@ main = do
                 mm = fromProjective $ rotationEuler $ Vec3 angle 0 0
             mvp $! mat4ToM44F $! mm .*. cm .*. pm
             mvp' $! mat4ToM44F $! mm .*. cm' .*. pm
+            print $ mat4ToM44F $! mm .*. cm' .*. pm
             renderPipeline renderer
             swapBuffers win >> pollEvents
 
-- 
cgit v1.2.3