From 490195ab37fcb94f0c536f958b23e74d3a8b87bd Mon Sep 17 00:00:00 2001
From: Chris Done <chrisdone@gmail.com>
Date: Sat, 7 Oct 2017 17:08:53 +0100
Subject: [PATCH] Switch to textarea

---
 web/IDE.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/web/IDE.hs b/web/IDE.hs
index be193a0..0cde860 100644
--- a/web/IDE.hs
+++ b/web/IDE.hs
@@ -234,12 +234,12 @@ newEditorEvent
   => Editor t m a -> Maybe a -> m (Event t a)
 newEditorEvent (Editor printer parser renderer) mdef = do
   inputWidget <-
-    textInput def {_textInputConfig_initialValue = maybe "" printer mdef}
+    textArea def {_textAreaConfig_initialValue = maybe "" printer mdef}
   parseResultDyn <-
     foldDyn
       (const . Just . parser)
       (fmap Right mdef)
-      (_textInput_input inputWidget)
+      (_textArea_input inputWidget)
   widgetDyn <-
     mapDyn
       (\case