cleanup & debug-output

2014-06-01 23:13:28 +02:00 · 2014-06-01 23:13:28 +02:00 · eaeae7d4e2
commit eaeae7d4e2
parent fc72fd8095
1 changed files with 41 additions and 40 deletions
--- a/src/Importer/IQM/Parser.hs
+++ b/src/Importer/IQM/Parser.hs
@ -218,8 +218,9 @@ parseIQM a =
    -- Fill Vertex-Arrays with data of Offsets
    let va = vertexArrays raw
    va' <- mapM (readInVAO f) va
-        vbo <- sequence $ map toVBOfromVAO va
+    vbo <- mapM toVBOfromVAO va
    withVAO vao $ createVAO (zip va' vbo)
+    print raw
    return $ raw
        { vertexArrays = va'
                , vertexBufferObjects = vbo