summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--TODO1
-rw-r--r--testdata/Graphics.lc2
2 files changed, 2 insertions, 1 deletions
diff --git a/TODO b/TODO
index 729b2e5a..37fe7829 100644
--- a/TODO
+++ b/TODO
@@ -95,6 +95,7 @@ done:
95 95
96next: 96next:
97- update API docs 97- update API docs
98- update language specification (heterogeneous lists, forall ->, ticking, etc)
98- update getting started 99- update getting started
99- update overview 100- update overview
100- CHANGELOG 101- CHANGELOG
diff --git a/testdata/Graphics.lc b/testdata/Graphics.lc
index f016f55a..14532d53 100644
--- a/testdata/Graphics.lc
+++ b/testdata/Graphics.lc
@@ -267,7 +267,7 @@ mkFilterFunction sa = case saAlphaFunc sa of
267maybe a b Nothing = a 267maybe a b Nothing = a
268maybe a b (Just x) = b x 268maybe a b (Just x) = b x
269 269
270type FB = FrameBuffer 1 '[Depth 'Float,Color '(Vec 4 Float)] 270type FB = FrameBuffer 1 '[ 'Depth Float, 'Color (Vec 4 Float)]
271 271
272mkStage :: String -> CommonAttrs -> FB -> StageAttrs -> FB 272mkStage :: String -> CommonAttrs -> FB -> StageAttrs -> FB
273mkStage name ca prevFB sa = Accumulate aCtx (mapFragments fSh (maybe id filterFragments fFun (rasterizePrimitives rCtx (Smooth, Smooth) (mapPrimitives vSh input)))) prevFB 273mkStage name ca prevFB sa = Accumulate aCtx (mapFragments fSh (maybe id filterFragments fFun (rasterizePrimitives rCtx (Smooth, Smooth) (mapPrimitives vSh input)))) prevFB