From 5c0c0fd87613b5cc7676df7e36603c6e7edd8767 Mon Sep 17 00:00:00 2001 From: opsb Date: Wed, 19 Jul 2017 09:05:58 +0200 Subject: [PATCH] Add default border-width --- src/Style.elm | 9 ++++++++- 1 file changed, 8 insertions(+), 1 deletion(-) diff --git a/src/Style.elm b/src/Style.elm index d10611ec..b088eb61 100644 --- a/src/Style.elm +++ b/src/Style.elm @@ -226,9 +226,16 @@ importCss str = {-| -} style : class -> List (Property class variation) -> Style class variation style cls props = - Batchable.one (Internal.Style cls (prop "border-style" "solid" :: props)) + Batchable.one (Internal.Style cls (defaultStyleProperties ++ props)) +{-| -} +defaultStyleProperties : List (Property class variation) +defaultStyleProperties = + [ prop "border-style" "solid" + , prop "border-width" "0" + ] + {-| -} variation : variation -> List (Property class Never) -> Property class variation variation variation props =