more clear pattern match

patritzenfeld · patritzenfeld · commit 7e44ef430477 · 2026-03-24T17:27:24.000+01:00
diff --git a/src/CodeWorld/Tasks/Picture.hs b/src/CodeWorld/Tasks/Picture.hs
@@ -157,7 +157,7 @@ instance Show Picture where
       [ showAPIFunction "circle" $ formatStyle s
       , show r
       ]
-    AnyArc Solid r1 r2 a -> ["sector", show r1, show r2, show a]
+    Sector r1 r2 a -> ["sector", show r1, show r2, show a]
     AnyArc s r1 r2 a ->
       [ showAPIFunction "arc" $ formatStyle s
       , show r1

Original file line number	Diff line number	Diff line change
`@@ -157,7 +157,7 @@ instance Show Picture where`
`157`	`157`	`[ showAPIFunction "circle" $ formatStyle s`
`158`	`158`	`, show r`
`159`	`159`	`]`
`160`		`- AnyArc Solid r1 r2 a -> ["sector", show r1, show r2, show a]`
	`160`	`+ Sector r1 r2 a -> ["sector", show r1, show r2, show a]`
`161`	`161`	`AnyArc s r1 r2 a ->`
`162`	`162`	`[ showAPIFunction "arc" $ formatStyle s`
`163`	`163`	`, show r1`