From a5345d5dc6c77468fe0f653d4d307ea356fb6eb6 Mon Sep 17 00:00:00 2001
From: Emi Simpson <emi@alchemi.dev>
Date: Wed, 28 Jun 2023 10:30:18 -0400
Subject: [PATCH] Swap order of TextSticker arguments

---
 src/Main.elm     | 2 +-
 src/Stickers.elm | 4 ++--
 2 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/src/Main.elm b/src/Main.elm
index 5c8d530..51e777b 100644
--- a/src/Main.elm
+++ b/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
\ No newline at end of file
diff --git a/src/Stickers.elm b/src/Stickers.elm
index 055bcf3..1d0092e 100644
--- a/src/Stickers.elm
+++ b/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"