@@ -44,9 +44,9 @@ defaultLine = {
44 miterLimit = 10
44 miterLimit = 10
47−solid clr = { basic | color <- clr }
47+solid clr = { defaultLine | color <- clr }
48−dashed clr = { basic | color <- clr, dashing <- [8,4] }
48+dashed clr = { defaultLine | color <- clr, dashing <- [8,4] }
49−dotted clr = { basic | color <- clr, dashing <- [3,3] }
49+dotted clr = { defaultLine | color <- clr, dashing <- [3,3] }
51data BasicForm
51data BasicForm
52 = FPath LineStyle Path
52 = FPath LineStyle Path