Swap order of TextSticker arguments

src/Main.elm

@@ -88,5 +88,5 @@ update msg model = case Debug.log "UPDATE" (msg, model) of
     { model | windowW = w, windowH = h }
       |> withoutCmd
   (Click x y, {stickers}) ->
-    { model | stickers = (Sticker (TextSticker "<3" "red") "Into This" x y ) :: stickers }
+    { model | stickers = (Sticker (TextSticker "red" "<3" ) "Into This" x y ) :: stickers }
       |> withoutCmd

src/Stickers.elm

@@ -14,7 +14,7 @@ type alias Sticker =
   }
 
 type StickerContent
-  = TextSticker String {- Text -} String {- Color -}
+  = TextSticker String {- Color -} String {- Text -}
 
 viewSticker : Sticker -> Svg msg
 viewSticker sticker =
@@ -24,7 +24,7 @@ viewSticker sticker =
       , y <| fromInt (sticker.y + 100)
       ]
   in case sticker.content of
-    TextSticker textContent color ->
+    TextSticker color textContent ->
       text_
         (  fill color
         :: fontSize "200px"