From 11052951b74b9ad4b6a9412ae490086235f9154b Mon Sep 17 00:00:00 2001
From: Joris
Date: Sun, 3 Jan 2021 13:40:40 +0100
Subject: Rewrite in Rust

---
 client/src/Main.hs | 39 ---------------------------------------
 1 file changed, 39 deletions(-)
 delete mode 100644 client/src/Main.hs

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

diff --git a/client/src/Main.hs b/client/src/Main.hs
deleted file mode 100644
index c71b0f0..0000000
--- a/client/src/Main.hs
+++ /dev/null
@@ -1,39 +0,0 @@
-module Main
-  ( main
-  ) where
-
-import qualified Data.Aeson                           as Aeson
-import qualified Data.ByteString.Lazy                 as LB
-import qualified Data.JSString.Text                   as Dom
-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,
-                                                       JSString)
-import qualified JSDOM.Types                          as Dom
-import           Prelude                              hiding (error, init)
-
-import           Common.Model                         (Init)
-import qualified Common.Msg                           as Msg
-
-import qualified View.App                             as App
-
-main :: JSM ()
-main = do
-  initResult <- readInit
-  App.widget initResult
-
-readInit :: JSM (Maybe Init)
-readInit = do
-  document <- Dom.currentDocumentUnchecked
-  initNode <- Dom.getElementById document ("init" :: JSString)
-
-  case initNode of
-    Just node -> do
-      text <- Dom.textFromJSString <$> Dom.getInnerText (Dom.uncheckedCastTo HTMLElement node)
-      return $ case Aeson.decode (LB.fromStrict . T.encodeUtf8 $ text) of
-        Just init -> init
-        Nothing   -> Nothing
-    _ ->
-      return Nothing
-- 
cgit v1.2.3