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

---
 server/src/View/Page.hs | 43 -------------------------------------------
 1 file changed, 43 deletions(-)
 delete mode 100644 server/src/View/Page.hs

(limited to 'server/src/View/Page.hs')

diff --git a/server/src/View/Page.hs b/server/src/View/Page.hs
deleted file mode 100644
index ae7a266..0000000
--- a/server/src/View/Page.hs
+++ /dev/null
@@ -1,43 +0,0 @@
-module View.Page
-  ( page
-  ) where
-
-import           Data.Aeson                    (encode)
-import qualified Data.Aeson.Types              as Json
-import           Data.Text.Internal.Lazy       (Text)
-import           Data.Text.Lazy.Encoding       (decodeUtf8)
-import           Prelude                       hiding (init)
-
-import           Text.Blaze.Html
-import           Text.Blaze.Html.Renderer.Text (renderHtml)
-import           Text.Blaze.Html5
-import qualified Text.Blaze.Html5              as H
-import           Text.Blaze.Html5.Attributes
-import qualified Text.Blaze.Html5.Attributes   as A
-
-import           Common.Model                  (Init)
-import qualified Common.Msg                    as Msg
-
-page :: Maybe Init -> Text
-page init =
-  renderHtml . docTypeHtml $ do
-    H.head $ do
-      meta ! charset "UTF-8"
-      meta ! name "viewport" ! content "width=device-width, initial-scale=1, maximum-scale=1, user-scalable=0"
-      H.title (toHtml $ Msg.get Msg.App_Title)
-      script ! src "/javascript/main.js" $ ""
-      script ! src "https://cdnjs.cloudflare.com/ajax/libs/Chart.js/2.9.3/Chart.bundle.js" $ ""
-      jsonScript "init" init
-      link ! rel "stylesheet" ! type_ "text/css" ! href "/css/reset.css"
-      link ! rel "stylesheet" ! type_ "text/css" ! href "/css/main.css"
-      link ! rel "icon" ! type_ "image/png" ! href "/images/icon.png"
-    H.body $ do
-      H.div ! A.class_ "spinner" $ ""
-
-
-jsonScript :: Json.ToJSON a => Text -> a -> Html
-jsonScript scriptId json =
-  script
-    ! A.id (toValue scriptId)
-    ! type_ "application/json"
-    $ toHtml . decodeUtf8 . encode $ json
-- 
cgit v1.2.3