1 files changed, 5 insertions, 5 deletions

diff --git a/testdata/simple02.lc b/testdata/simple02.lc
index 68e163bd..e920e6c6 100644
--- a/testdata/simple02.lc
+++ b/testdata/simple02.lc
@@ -14,11 +14,11 @@ main = let
   rasterCtx         = TriangleCtx cull polyMode' NoOffset FirstVertex
   fragmentCtx       = (DepthOp Less True, ColorOp blend (V4 True True True True))
   modelViewProj     = Uniform "MVP" :: Mat 4 4 Float
-  vertexShader v    = (PrimMulMatVec modelViewProj v, v)
-  vertexStream      = fetch "stream4" Triangle (Attribute "position4" :: Vec 4 Float)
+  vertexShader ((v))    = (PrimMulMatVec modelViewProj v, v)
+  vertexStream      = fetch "stream4" Triangle (Attribute "position4" :: ((Vec 4 Float)))
   primitiveStream   = mapPrimitives vertexShader vertexStream
-  fragmentStream    = rasterizePrimitives rasterCtx Smooth primitiveStream
-  fragmentShader' = \v -> (V4 1.0 0.4 0.0 0.2)
-  fragmentShader = \v -> (PrimMul v (V4 1.0 0.4 0.0 0.2))
+  fragmentStream    = rasterizePrimitives rasterCtx ((Smooth)) primitiveStream
+  fragmentShader' = \((v)) -> ((V4 1.0 0.4 0.0 0.2))
+  fragmentShader = \((v)) -> ((PrimMul v (V4 1.0 0.4 0.0 0.2)))
   frame             = accumulate fragmentCtx fragmentShader fragmentStream emptyFB
  in ScreenOut frame