From 50fb8fa48d1c4881da20b4ecf6d68a772301e713 Mon Sep 17 00:00:00 2001
From: Joris
Date: Tue, 30 Oct 2018 18:04:58 +0100
Subject: Update table when adding or removing a payment

---
 client/src/Main.hs | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

(limited to 'client/src/Main.hs')

diff --git a/client/src/Main.hs b/client/src/Main.hs
index 6c048c6..d6f89cd 100644
--- a/client/src/Main.hs
+++ b/client/src/Main.hs
@@ -9,7 +9,8 @@ import qualified Data.Text.Encoding                   as T
 import qualified JSDOM                                as Dom
 import qualified JSDOM.Generated.HTMLElement          as Dom
 import qualified JSDOM.Generated.NonElementParentNode as Dom
-import           JSDOM.Types                          (HTMLElement (..), JSM)
+import           JSDOM.Types                          (HTMLElement (..), JSM,
+                                                       JSString)
 import qualified JSDOM.Types                          as Dom
 import           Prelude                              hiding (error, init)
 
@@ -26,7 +27,7 @@ main = do
 readInit :: JSM InitResult
 readInit = do
   document <- Dom.currentDocumentUnchecked
-  initNode <- Dom.getElementById document ("init" :: Dom.JSString)
+  initNode <- Dom.getElementById document ("init" :: JSString)
 
   case initNode of
     Just node -> do
-- 
cgit v1.2.3