Update table when adding or removing a payment

1 files changed, 3 insertions, 2 deletions

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