From 9b76dd528c01dc80d86f579f743f281c0c8e01a2 Mon Sep 17 00:00:00 2001
From: amesgen <amesgen@amesgen.de>
Date: Mon, 22 Aug 2022 22:50:08 +0200
Subject: [PATCH] Fix GHC build with `text >=1.2.5` (#708)

---
 src/Miso/FFI.hs        | 2 +-
 src/Miso/Html/Types.hs | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/Miso/FFI.hs b/src/Miso/FFI.hs
index 4fba6aba..0e3f41a2 100644
--- a/src/Miso/FFI.hs
+++ b/src/Miso/FFI.hs
@@ -64,7 +64,7 @@ import           Language.Javascript.JSaddle hiding (obj, val)
 #else
 import           Language.Javascript.JSaddle hiding (Success, obj, val)
 #endif
-import           Miso.String
+import           Miso.String hiding (elem)
 
 -- | Run given `JSM` action asynchronously, in a separate thread.
 forkJSM :: JSM () -> JSM ()
diff --git a/src/Miso/Html/Types.hs b/src/Miso/Html/Types.hs
index 5436a9f5..4f0f65cb 100644
--- a/src/Miso/Html/Types.hs
+++ b/src/Miso/Html/Types.hs
@@ -65,7 +65,7 @@ import           Text.HTML.TagSoup          (Tag(..))
 import           Miso.Effect
 import           Miso.Event
 import           Miso.FFI
-import           Miso.String hiding (reverse)
+import           Miso.String hiding (elem, reverse)
 
 -- | Core type for constructing a `VTree`, use this instead of `VTree` directly.
 data View action