@@ -4,7 +4,6 @@ import Prelude
44
55import Color (Color)
66import React.Basic.Emotion (Style, StyleProperty, borderBox, color, contentBox, css, px, rem, str)
7−import Unsafe.Coerce (unsafeCoerce)
87
98rounded ∷ StyleProperty -> Style
109rounded = css <<< { borderRadius: _ }
@@ -69,10 +68,11 @@ boxSizingBorderBox = css { boxSizing: borderBox }
6968boxSizingContentBox ∷ Style
7069boxSizingContentBox = css { boxSizing: contentBox }
7170
72−borderGradient :: { backgroundGradient :: Style, borderGradient :: Style } -> Style
71+borderGradient :: { backgroundGradient :: String, borderGradient :: String } -> Style
7372borderGradient args =
7473 css
7574 { background: str $
76− unsafeCoerce args.backgroundGradient <> " padding-box, " <> unsafeCoerce args.borderGradient <> " border-box"
75+ args.backgroundGradient <> " padding-box, "
76+ <> (args.borderGradient <> " border-box")
7777 , borderColor: str "transparent"
7878 }