Don't store !important separately from value.

Author: Richard Feldman

src/Css.elm

@@ -1769,7 +1769,15 @@ declaration.
 -}
 important : Style -> Style
 important =
-    Preprocess.mapLastProperty (\property -> { property | important = True })
+    Preprocess.mapLastProperty (\property -> { property | value = makeImportant property.value })
+
+
+makeImportant : String -> String
+makeImportant value =
+    if String.endsWith " !important" (String.toLower value) then
+        value
+    else
+        value ++ " !important"
 
 
 {-| A [`ColorValue`](#ColorValue) that does not have `red`, `green`, or `blue`
@@ -7744,7 +7752,7 @@ batch =
 -}
 property : String -> String -> Style
 property key value =
-    { key = key, value = value, important = False }
+    { key = key, value = value }
         |> Preprocess.AppendProperty
 
 

src/Css/Preprocess.elm

@@ -19,7 +19,6 @@ stylesheet snippets =
 type alias Property =
     { key : String
     , value : String
-    , important : Bool
     }
 
 
@@ -154,11 +153,4 @@ toPropertyPairs styles =
 
 propertyToPair : Property -> ( String, String )
 propertyToPair property =
-    let
-        value =
-            if property.important then
-                property.value ++ " !important"
-            else
-                property.value
-    in
-    ( property.key, value )
+    ( property.key, property.value )

src/Css/Structure.elm

@@ -16,12 +16,10 @@ type alias Number compatible =
     { compatible | value : String, number : Compatible }
 
 
-{-| A property consisting of a key, a value, and a flag for whether or not
-the property is `!important`.
+{-| A property consisting of a key and a value
 -}
 type alias Property =
-    { important : Bool
-    , key : String
+    { key : String
     , value : String
     }
 

src/Css/Structure/Output.elm

@@ -229,15 +229,8 @@ combinatorToString combinator =
 
 
 prettyPrintProperty : Property -> String
-prettyPrintProperty { key, value, important } =
-    let
-        suffix =
-            if important then
-                " !important;"
-            else
-                ";"
-    in
-    key ++ ": " ++ value ++ suffix
+prettyPrintProperty { key, value } =
+    key ++ ": " ++ value ++ ";"
 
 
 {-| Indent the given string with 4 spaces