Use compiler-support for TextureCube.

1 files changed, 3 insertions, 4 deletions

diff --git a/MeshSketch.hs b/MeshSketch.hs
index 5bf6fea..02ba53a 100644
--- a/MeshSketch.hs
+++ b/MeshSketch.hs
@@ -32,7 +32,7 @@ import LambdaCube.IR as LC
 import LambdaCube.Gtk
 import LambdaCube.GL.Data (uploadCubeMapToGPU)
 import LambdaCube.GL.Type (TextureData(..))
-import Text.Show.Pretty (ppShow)
+-- import Text.Show.Pretty (ppShow)
 
 import CubeMap
 import GLWidget (nullableContext, withCurrentGL)
@@ -43,7 +43,6 @@ import LoadMesh
 import InfinitePlane
 import MtlParser (ObjMaterial(..))
 import Matrix
-import SavedPipeline
 
 -- State created by uploadState.
 data State = State
@@ -200,8 +199,8 @@ new = do
     m <- do
         objName <- head . (++ ["cube.obj"]) <$> getArgs
         mobj <- loadOBJ objName
-        -- mpipeline <- loadPipeline "hello_obj2.json" $ do
-        mpipeline <- (\s -> return (Right (DynamicPipeline savedPipeline (makeSchema s)))) $ do
+        -- mpipeline <- (\s -> return (Right (DynamicPipeline savedPipeline (makeSchema s)))) $ do
+        mpipeline <- loadPipeline "hello_obj2.json" $ do
           defObjectArray "SkyCube" Triangles $ do
             "position"  @: Attribute_V3F
           defObjectArray "objects" Triangles $ do