From 475dbc6b3793af579521a6ec6be2e0c21c53de50 Mon Sep 17 00:00:00 2001
From: Mark Eibes <mark.eibes@gmail.com>
Date: Tue, 25 Apr 2023 09:03:58 +0200
Subject: [PATCH] Make select properly controlled

---
 .idea/tailwindcss.xml                | 6 ++++++
 src/Yoga/Block/Atom/Select/View.purs | 3 ++-
 2 files changed, 8 insertions(+), 1 deletion(-)
 create mode 100644 .idea/tailwindcss.xml

diff --git a/.idea/tailwindcss.xml b/.idea/tailwindcss.xml
new file mode 100644
index 0000000..5c262b5
--- /dev/null
+++ b/.idea/tailwindcss.xml
@@ -0,0 +1,6 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<project version="4">
+  <component name="TailwindSettings">
+    <option name="lspConfiguration" value="{&#10;  &quot;includeLanguages&quot;: {&#10;    &quot;purescript&quot;: &quot;html&quot;&#10;  },&#10;    &quot;[purescript]&quot;: {&#10;      &quot;tailwindCSS.experimental.classRegex&quot;: [&#10;        &quot;\\bclassName:\\s+\&quot;([^\&quot;]*)\&quot;&quot;&#10;      ]&#10;  },&#10;  &quot;files&quot;: {&#10;    &quot;exclude&quot;: [&#10;      &quot;**/.git/**&quot;,&#10;      &quot;**/node_modules/**&quot;,&#10;      &quot;**/.hg/**&quot;,&#10;      &quot;**/.svn/**&quot;&#10;    ]&#10;  },&#10;  &quot;emmetCompletions&quot;: false,&#10;  &quot;classAttributes&quot;: [&quot;class&quot;, &quot;className&quot;, &quot;ngClass&quot;],&#10;  &quot;colorDecorators&quot;: false,&#10;  &quot;showPixelEquivalents&quot;: true,&#10;  &quot;rootFontSize&quot;: 16,&#10;  &quot;hovers&quot;: true,&#10;  &quot;suggestions&quot;: true,&#10;  &quot;codeActions&quot;: true,&#10;  &quot;validate&quot;: true,&#10;  &quot;lint&quot;: {&#10;    &quot;invalidScreen&quot;: &quot;error&quot;,&#10;    &quot;invalidVariant&quot;: &quot;error&quot;,&#10;    &quot;invalidTailwindDirective&quot;: &quot;error&quot;,&#10;    &quot;invalidApply&quot;: &quot;error&quot;,&#10;    &quot;invalidConfigPath&quot;: &quot;error&quot;,&#10;    &quot;cssConflict&quot;: &quot;warning&quot;,&#10;    &quot;recommendedVariantOrder&quot;: &quot;warning&quot;&#10;  },&#10;  &quot;experimental&quot;: {&#10;    &quot;configFile&quot;: null,&#10;    &quot;classRegex&quot;: []&#10;  }&#10;}" />
+  </component>
+</project>
\ No newline at end of file
diff --git a/src/Yoga/Block/Atom/Select/View.purs b/src/Yoga/Block/Atom/Select/View.purs
index b37f2de..98a6b8a 100644
--- a/src/Yoga/Block/Atom/Select/View.purs
+++ b/src/Yoga/Block/Atom/Select/View.purs
@@ -18,7 +18,7 @@ type Props a =
 
 component ∷ ∀ a. ReactComponent (Props a)
 component = unsafePerformEffect do
-  React.reactComponent "Select" \{ toString, toValue, choices, onChange } →
+  React.reactComponent "Select" \{ toString, toValue, choice, choices, onChange } →
     React.do
       pure $
         div "input-container" Style.container
@@ -27,6 +27,7 @@ component = unsafePerformEffect do
                 { className: "select"
                 , role: "listbox"
                 , css: Style.select
+                , value: toValue choice
                 , onChange: handler targetValue
                     \maybeVal → traverse_ onChange do
                       val ← maybeVal