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