`Text.style` supersedes `Text.color`

[kasbah]

First applying a style seems to make it impossible to then use Text.color.

http://share-elm.com/sprout/56506538e4b05f0d6cc4a102

import Graphics.Element (..)
import Graphics.Collage (..)
import Text (..)
import Text
import Color (..)

redText : String -> Text
redText str =
    Text.color red (fromString str)

redText' : String -> Text
redText' str =
    Text.color red (style defaultStyle (fromString str))

main : Element
main = flow down 
  [ leftAligned <| redText  "Hello, World!"
  , leftAligned <| redText' "Hello, World!"
  ]

[rubytree]

@kasbah I think it works with 0.15

[rubytree]

@kasbah I think it works with 0.15

[kasbah]

Yes, looks good in 0.15

http://share-elm.com/sprout/5650560be4b05f0d6cc4a0ee

import Graphics.Element exposing (..)
import Graphics.Collage exposing (..)
import Text exposing (..)
import Text
import Color exposing (..)

redText : String -> Text
redText str =
    Text.color red (fromString str)

redText' : String -> Text
redText' str =
    Text.color red (style defaultStyle (fromString str))

main : Element
main = flow down 
  [ leftAligned <| redText  "Hello, World!"
  , leftAligned <| redText' "Hello, World!"
  ]

[kasbah]

Yes, looks good in 0.15

http://share-elm.com/sprout/5650560be4b05f0d6cc4a0ee

import Graphics.Element exposing (..)
import Graphics.Collage exposing (..)
import Text exposing (..)
import Text
import Color exposing (..)

redText : String -> Text
redText str =
    Text.color red (fromString str)

redText' : String -> Text
redText' str =
    Text.color red (style defaultStyle (fromString str))

main : Element
main = flow down 
  [ leftAligned <| redText  "Hello, World!"
  , leftAligned <| redText' "Hello, World!"
  ]