@@ -150,19 +150,19 @@ addColor maybeColor attrs =
150colorToCss : Error.Color -> String
150colorToCss : Error.Color -> String
151colorToCss color =
151colorToCss color =
152 case color of
152 case color of
153− Error.Red -> "red"
153+ Error.Red -> "rgb(194,54,33)"
154− Error.RED -> "red"
154+ Error.RED -> "rgb(252,57,31)"
155− Error.Magenta -> "magenta"
155+ Error.Magenta -> "rgb(211,56,211)"
156− Error.MAGENTA -> "magenta"
156+ Error.MAGENTA -> "rgb(249,53,248)"
157− Error.Yellow -> "yellow"
157+ Error.Yellow -> "rgb(173,173,39)"
158− Error.YELLOW -> "yellow"
158+ Error.YELLOW -> "rgb(234,236,35)"
159− Error.Green -> "green"
159+ Error.Green -> "rgb(37,188,36)"
160− Error.GREEN -> "green"
160+ Error.GREEN -> "rgb(49,231,34)"
161− Error.Cyan -> "cyan"
161+ Error.Cyan -> "rgb(51,187,200)"
162− Error.CYAN -> "cyan"
162+ Error.CYAN -> "rgb(20,240,240)"
163− Error.Blue -> "blue"
163+ Error.Blue -> "rgb(73,46,225)"
164− Error.BLUE -> "blue"
164+ Error.BLUE -> "rgb(88,51,255)"
165− Error.White -> "white"
165+ Error.White -> "rgb(203,204,205)"
166− Error.WHITE -> "white"
166+ Error.WHITE -> "rgb(233,235,235)"
167− Error.Black -> "black"
167+ Error.Black -> "rgb(0,0,0)"
168− Error.BLACK -> "black"
168+ Error.BLACK -> "rgb(129,131,131)"