From 27e11b20b06f2f2dbfb56c0998a63169b4b8abc4 Mon Sep 17 00:00:00 2001
From: Joris
Date: Wed, 8 Nov 2017 23:47:26 +0100
Subject: Use a better project structure

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

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

diff --git a/src/client/Main.hs b/src/client/Main.hs
deleted file mode 100644
index c5f2c50..0000000
--- a/src/client/Main.hs
+++ /dev/null
@@ -1,41 +0,0 @@
-module Main
-  ( main
-  ) where
-
-import qualified Data.Aeson as Aeson
-import qualified Data.ByteString.Lazy as LB
-import Data.JSString.Text (textFromJSString)
-import qualified Data.Text.Encoding as T
-import qualified GHCJS.DOM as Dom
-import qualified GHCJS.DOM.NonElementParentNode as Dom
-import GHCJS.DOM.Types (JSM, Element, JSString)
-import Prelude hiding (init, error)
-
-import Common.Model (InitResult(InitEmpty))
-import qualified Common.Message as Message
-import qualified Common.Message.Key as Key
-
-import qualified View.App as App
-
-main :: JSM ()
-main = do
-  initResult <- readInit
-  putStrLn . show $ initResult
-  App.widget initResult
-
-readInit :: JSM InitResult
-readInit = do
-  document <- Dom.currentDocumentUnchecked
-  initNode <- Dom.getElementById document "init"
-  case initNode of
-    Just node -> do
-      text <- textFromJSString <$> js_getInnerText node
-      return $ case Aeson.decode (LB.fromStrict . T.encodeUtf8 $ text) of
-        Just init -> init
-        Nothing -> initParseError
-    _ ->
-      return initParseError
-  where initParseError = InitEmpty (Left $ Message.get Key.SignIn_ParseError)
-
-foreign import javascript unsafe "$1[\"innerText\"]"
-  js_getInnerText :: Element -> IO JSString
-- 
cgit v1.2.3