Browse Source

some login-page-progress, major structure

Sebastian Kreisel 2 years ago
parent
commit
ffd741c789
43 changed files with 219 additions and 132 deletions
  1. 0 0
      elfcom-api/LICENSE
  2. 0 0
      elfcom-api/Setup.hs
  3. 3 3
      wn-api/wn-api.cabal
  4. 1 1
      wn-api/src/Wnapi/Api/Edit.hs
  5. 0 0
      elfcom-backend/LICENSE
  6. 0 0
      elfcom-backend/Setup.hs
  7. 0 0
      elfcom-backend/compile_and_run.sh
  8. 10 4
      wn-backend/wn-backend.cabal
  9. 0 0
      elfcom-backend/elfcom.db
  10. 10 0
      elfcom-backend/restart_server.sh
  11. 0 0
      elfcom-backend/src/Document/LatexHtml.hs
  12. 0 0
      elfcom-backend/src/Document/auto/example.el
  13. 7 2
      wn-backend/src/Main.hs
  14. 0 0
      elfcom-backend/src/Model/Types.hs
  15. 11 0
      elfcom-backend/src/Web/Util.hs
  16. 7 13
      wn-backend/src/Web/View.hs
  17. 14 8
      wn-backend/src/Web/ViewEdit.hs
  18. 35 0
      elfcom-backend/src/Web/ViewLogin.hs
  19. 1 1
      wn-backend/stack.yaml
  20. 25 0
      elfcom-backend/static/css/input.css
  21. 0 0
      elfcom-backend/static/css/latex.css
  22. 0 34
      wn-backend/static/css/site_edit.css
  23. 54 0
      elfcom-backend/static/css/site_login.css
  24. 0 0
      elfcom-backend/static/css/structure.css
  25. 0 0
      elfcom-frontend/edit/LICENSE
  26. 0 0
      elfcom-frontend/edit/README.md
  27. 0 0
      elfcom-frontend/edit/Setup.hs
  28. 0 0
      elfcom-frontend/edit/compile_and_copy.sh
  29. 10 11
      wn-frontend/wn-frontend.cabal
  30. 5 0
      elfcom-frontend/edit/replace_js.sh
  31. 1 1
      wn-frontend/src/Edit/EditCommon.hs
  32. 3 3
      wn-frontend/src/Edit/EditFetch.hs
  33. 4 4
      wn-frontend/src/Edit/EditLoad.hs
  34. 3 3
      wn-frontend/src/Edit/EditPreview.hs
  35. 2 2
      wn-frontend/src/Edit/EditShortcuts.hs
  36. 3 3
      wn-frontend/src/Edit/EditSubmit.hs
  37. 9 9
      wn-frontend/src/Edit/EditMain.hs
  38. 0 0
      elfcom-frontend/edit/src/MathJax.hs
  39. 0 0
      elfcom-frontend/edit/src/Util.hs
  40. 1 1
      wn-frontend/stack.yaml
  41. 0 10
      wn-backend/restart_server.sh
  42. 0 11
      wn-frontend/replace_js.sh
  43. 0 8
      wn-frontend/src/Main.hs

wn-api/LICENSE → elfcom-api/LICENSE


wn-api/Setup.hs → elfcom-api/Setup.hs


+ 3 - 3
wn-api/wn-api.cabal

@@ -1,8 +1,8 @@
-name:                wn-api
+name:                elfcom-api
 version:             0.1.0.0
 synopsis:            Simple project template from stack
 description:         Please see README.md
-homepage:            https://github.com/elfeck/wn-api#readme
+homepage:            https://lab.elfeck.com/seb/elfcom
 license:             BSD3
 license-file:        LICENSE
 author:              Sebastian Kreisel
@@ -14,7 +14,7 @@ cabal-version:       >=1.10
 
 library
   hs-source-dirs:      src
-  exposed-modules:     Wnapi.Api.Edit
+  exposed-modules:     Elfcom.Api.Edit
   ghc-options:         -Wall
   default-language:    Haskell2010
   default-extensions:  OverloadedStrings

+ 1 - 1
wn-api/src/Wnapi/Api/Edit.hs

@@ -2,7 +2,7 @@
 {-# LANGUAGE DeriveAnyClass #-}
 {-# LANGUAGE DataKinds      #-}
 
-module Wnapi.Api.Edit where
+module Elfcom.Api.Edit where
 
 import Data.Time (UTCTime)
 import Web.Spock.Api

wn-backend/LICENSE → elfcom-backend/LICENSE


wn-backend/Setup.hs → elfcom-backend/Setup.hs


wn-backend/compile_and_run.sh → elfcom-backend/compile_and_run.sh


+ 10 - 4
wn-backend/wn-backend.cabal

@@ -1,8 +1,8 @@
-name:                wn-backend
+name:                elfcom-backend
 version:             0.1.0.0
 synopsis:            Simple project template from stack
 description:         Please see README.md
-homepage:            https://github.com/elfeck/wn-backend#readme
+homepage:            https://lab.elfeck.com/seb/elfcom
 license:             BSD3
 license-file:        LICENSE
 author:              Sebastian Kreisel
@@ -12,12 +12,18 @@ category:            web
 build-type:          Simple
 cabal-version:       >=1.10
 
-executable wn-backend-exe
+executable elfcom-backend-exe
   hs-source-dirs:      src
   main-is:             Main.hs
   ghc-options:         -Wall
   default-language:    Haskell2010
   default-extensions:  OverloadedStrings
+  other-modules:       Web.View
+                     , Web.Util
+                     , Web.ViewLogin
+                     , Web.ViewEdit
+                     , Model.Types
+                     , Document.LatexHtml
   build-depends:       base >= 4.7 && < 5
                      , Spock
                      , Spock-api-server
@@ -31,4 +37,4 @@ executable wn-backend-exe
                      , blaze-html >= 0.7
                      , mtl
                      , pandoc >= 1.17
-                     , wn-api
+                     , elfcom-api

wn-backend/wnapi → elfcom-backend/elfcom.db


+ 10 - 0
elfcom-backend/restart_server.sh

@@ -0,0 +1,10 @@
+#!/bin/bash
+running="$(ps aux | grep '[w]n-backend-exe' | awk '{print $2}')"
+if [ -z "$running" ]; then
+    echo "Starting elfcom-backend-exe ..."
+    stack exec elfcom-backend-exe &
+else
+    kill $running
+    echo "Restarting elfcom-backend-exe ..."
+    stack exec elfcom-backend-exe &
+fi

wn-backend/src/Document/LatexHtml.hs → elfcom-backend/src/Document/LatexHtml.hs


wn-backend/src/Document/auto/example.el → elfcom-backend/src/Document/auto/example.el


+ 7 - 2
wn-backend/src/Main.hs

@@ -14,10 +14,11 @@ import Text.Blaze.Html.Renderer.Utf8 (renderHtml)
 import Model.Types
 import Web.View
 import Web.ViewEdit
+import Web.ViewLogin
 import Document.LatexHtml
 import qualified Text.Blaze.Html as B
 
-import qualified Wnapi.Api.Edit as E
+import qualified Elfcom.Api.Edit as E
 data SessionVal = EmptySession
 data AppState = DummyAppState
 
@@ -26,7 +27,7 @@ type Action ctx a = SpockActionCtx ctx SqlBackend SessionVal AppState a
 
 main :: IO ()
 main =
-  do pool <- runNoLoggingT $ createSqlitePool ("wnapi") 5
+  do pool <- runNoLoggingT $ createSqlitePool ("elfcom.db") 5
      runNoLoggingT $ runSqlPool (runMigration migrateCore) pool
      spockCfg <- defaultSpockCfg EmptySession (PCPool pool) (DummyAppState)
      runSpock 3000 (spock spockCfg app)
@@ -41,10 +42,14 @@ app =
          Nothing -> blaze $ standardSite "." "Latex Parsing Error"
      get "edit" $ do
        blaze $ editSite "."
+     get "login" $ do
+       blaze $ loginSite "."
      defEndpoint E.editPreview editPreviewHandler
      defEndpoint E.editFetch editFetchHandler
      defEndpoint E.editLoad editLoadHandler
      defEndpoint E.editSubmit editSubmitHandler
+     post ("api" <//> "login" <//> "login") $ do
+       redirect "/"
 
 
 editPreviewHandler :: E.EditPreviewReq -> Action ctx E.EditPreviewRsp

wn-backend/src/Model/Types.hs → elfcom-backend/src/Model/Types.hs


+ 11 - 0
elfcom-backend/src/Web/Util.hs

@@ -0,0 +1,11 @@
+module Web.Util where
+
+import Text.Blaze.Html5
+import Text.Blaze.Html5.Attributes
+
+
+makeCss :: String -> Html
+makeCss pth = link ! href (stringValue pth) ! rel "stylesheet"
+
+makeJs :: String -> Html
+makeJs pth = script ! src (stringValue pth) $ ""

+ 7 - 13
wn-backend/src/Web/View.hs

@@ -4,21 +4,15 @@ import Prelude hiding (div, head, id)
 import Text.Blaze.Html5
 import Text.Blaze.Html5.Attributes hiding (title)
 
+import Web.Util
 
-siteHead :: String -> Html
-siteHead path = docTypeHtml $ head $ do
+
+siteHead :: String -> Html -> Html
+siteHead path htm = docTypeHtml $ head $ do
   title "wnapi"
   meta ! charset "utf-8"
-  makeCss "/css/structure.css"
-  makeCss "/css/latex.css"
-  makeCss "/css/site_edit.css"
-  --makeCss "/KaTeX/dist/katex.min.css"
-  makeJs "/js/all.js"
-  makeJs "/MathJax/MathJax.js?config=custom"
-  --makeJs "/KaTeX/dist/katex.min.js"
-  where
-    makeCss pth = link ! href (stringValue (path ++ pth)) ! rel "stylesheet"
-    makeJs pth = script ! src (stringValue (path ++ pth)) $ ""
+  makeCss $ path ++ "/css/structure.css"
+  htm
 
 siteBody :: Html -> Html
 siteBody h = div ! class_ "cnt-body" $ h
@@ -34,7 +28,7 @@ siteFooter = div ! class_ "cnt-footer" $ ""
 
 standardSite :: String -> Html -> Html
 standardSite path h = do
-  siteHead path
+  siteHead path $ return ()
   siteBody $ do
     siteHeader
     siteMain h

+ 14 - 8
wn-backend/src/Web/ViewEdit.hs

@@ -5,11 +5,17 @@ import Text.Blaze.Html5
 import Text.Blaze.Html5.Attributes hiding (title)
 
 import Web.View
+import Web.Util
 
 
 editSite :: String -> Html
 editSite path = do
-  siteHead path
+  siteHead path $ do
+    makeCss $ path ++ "/css/latex.css"
+    makeCss $ path ++ "/css/input.css"
+    makeCss $ path ++ "/css/site_edit.css"
+    makeJs $ path ++ "/js/site_edit.js"
+    makeJs $ path ++ "/MathJax/MathJax.js?config=custom"
   siteBody $ do
     editHeader
     siteMain editMain
@@ -18,19 +24,19 @@ editSite path = do
 editMain :: Html
 editMain = div ! class_ "cnt-edit-main" $ do
   div ! class_ "cnt-edit-left" $ do
-    input ! id "edit-title" ! class_ "edit-input"
-    input ! id "edit-categories" ! class_ "edit-input"
-    input ! id "edit-ptype" ! class_ "edit-input"
-    input ! id "edit-paccess" ! class_ "edit-input"
+    input ! id "edit-title"
+    input ! id "edit-categories"
+    input ! id "edit-ptype"
+    input ! id "edit-paccess"
     textarea ! id "edit-text" $ ""
     input ! id "edit-response" ! class_ "edit-input" ! readonly "readonly"
     input ! id "edit-action" ! class_ "edit-input"
     button ! id "edit-submit-button" $ "Go!"
   div ! class_ "cnt-edit-right" $ do
-    input ! id "edit-id" ! class_ "edit-input" ! readonly "readonly"
-    input ! id "edit-date" ! class_ "edit-input" ! readonly "readonly"
+    input ! id "edit-id" ! readonly "readonly"
+    input ! id "edit-date" ! readonly "readonly"
     select ! autocomplete "off" ! multiple "multiple" ! id "edit-select" $ ""
-    input ! id "edit-search" ! class_ "edit-input"
+    input ! id "edit-search"
   div ! class_ "cnt-edit-bottom" ! id "edit-preview" $ ""
 
 

+ 35 - 0
elfcom-backend/src/Web/ViewLogin.hs

@@ -0,0 +1,35 @@
+module Web.ViewLogin where
+
+import Prelude hiding (div, head, id)
+import Text.Blaze.Html5
+import Text.Blaze.Html5.Attributes hiding (title, form)
+
+import Web.Util
+import Web.View
+
+
+loginSite :: String -> Html
+loginSite path = do
+  siteHead path $ do
+    makeCss $ path ++ "/css/site_login.css"
+    makeCss $ path ++ "/css/input.css"
+  siteBody $ do
+    loginHeader
+    siteMain loginMain
+    loginFooter
+
+loginMain :: Html
+loginMain = div ! class_ "cnt-login-main" $ do
+  div ! class_ "cnt-login-form" $ do
+    form ! id "login-form" ! action "/api/login/login" ! method "post" $ do
+      input ! id "login-name" ! type_ "text"
+      input ! id "login-pass" ! type_ "password"
+      div ! id "login-response" $ "Go ahead ..."
+      input ! id "login-submit" ! type_ "submit" ! value "~"
+
+
+loginHeader :: Html
+loginHeader = div ! class_ "cnt-login-header" $ ""
+
+loginFooter :: Html
+loginFooter = div ! class_ "cnt-login-footer" $ ""

+ 1 - 1
wn-backend/stack.yaml

@@ -2,7 +2,7 @@ resolver: lts-7.2
 
 packages:
   - .
-  - ../wn-api
+  - ../elfcom-api
 
 extra-deps: []
 flags: {}

+ 25 - 0
elfcom-backend/static/css/input.css

@@ -0,0 +1,25 @@
+/*
+ * INPUT
+ */
+input, textarea, select, button {
+    margin: 0px;
+    padding: 0px;
+    border: 1px solid grey;
+    font-family: sans;
+    font-size: 13px;
+    display: inline-block;
+    -webkit-box-sizing: border-box;
+    -moz-box-sizing: border-box;
+    box-sizing: border-box;
+    resize: none;
+}
+
+input {
+    padding: 0px 3px 0px 3px;
+    height: 22px;
+    margin: 5px 0px 5px 0px;
+}
+
+input[readonly] {
+    cursor: default;
+}

wn-backend/static/css/latex.css → elfcom-backend/static/css/latex.css


+ 0 - 34
wn-backend/static/css/site_edit.css

@@ -38,40 +38,6 @@ div.cnt-edit-bottom {
 
 
 /*
- * INPUT
- */
-input, textarea, select, button {
-    margin: 0px;
-    padding: 0px;
-    border: 1px solid grey;
-    font-family: sans;
-    font-size: 13px;
-    display: inline-block;
-    -webkit-box-sizing: border-box;
-    -moz-box-sizing: border-box;
-    box-sizing: border-box;
-    resize: none;
-}
-
-input {
-    padding: 0px 3px 0px 3px;
-}
-
-input[readonly] {
-    cursor: default;
-}
-
-
-/*
- * CLASSES
- */
-input.edit-input {
-    height: 22px;
-    margin: 5px 0px 5px 0px;
-}
-
-
-/*
  * IDS
  */
 textarea#edit-text {

+ 54 - 0
elfcom-backend/static/css/site_login.css

@@ -0,0 +1,54 @@
+/*
+ * CONTAINERS
+ */
+div.cnt-login-main {
+    margin: 100px auto 100px auto;
+    height: 500px;
+    border: 1px grey solid;
+}
+
+div.cnt-login-form {
+    margin: 100px auto 0px auto;
+    width: 206px;
+    height: 78px;
+}
+
+/*
+ * IDS
+ */
+form.login-form {
+}
+
+input#login-name{
+    display: block;
+    width: 200px;
+    margin: 3px;
+    text-align: center;
+}
+
+input#login-pass {
+    display: block;
+    width: 200px;
+    margin: 3px;
+    text-align: center;
+}
+
+input#login-submit {
+    width: 30px;
+    margin: 0px 3px 0px 3px;
+    vertical-align: top;
+}
+
+div#login-response {
+    display: inline-block;
+    width: 165px;
+    height: 20px;
+    text-align: center;
+    background-color: white;
+    border: 1px grey solid;
+    margin: 0px 0px 0px 3px;
+    line-height: 160%;
+    font-family: sans;
+    font-size: 13px;
+    color: grey;
+}

wn-backend/static/css/structure.css → elfcom-backend/static/css/structure.css


wn-frontend/LICENSE → elfcom-frontend/edit/LICENSE


wn-frontend/README.md → elfcom-frontend/edit/README.md


wn-frontend/Setup.hs → elfcom-frontend/edit/Setup.hs


wn-frontend/compile_and_copy.sh → elfcom-frontend/edit/compile_and_copy.sh


+ 10 - 11
wn-frontend/wn-frontend.cabal

@@ -1,8 +1,8 @@
-name:                wn-frontend
+name:                elfcom-edit
 version:             0.1.0.0
 synopsis:            Initial project template from stack
 description:         Please see README.md
-homepage:            https://github.com/elfeck/wn-frontend#readme
+homepage:            https://lab.elfeck.com/seb/elfcom
 license:             BSD3
 license-file:        LICENSE
 author:              Sebastian Kreisel
@@ -12,19 +12,18 @@ category:            web
 build-type:          Simple
 cabal-version:       >=1.10
 
-executable wn-frontend-exe
+executable elfcom-edit-exe
   hs-source-dirs:      src
   main-is:             Main.hs
   ghc-options:         -Wall -DGHCJS_BROWSER
   default-language:    Haskell2010
   other-modules:       Util
-                     , Edit.EditMain
-                     , Edit.EditPreview
-                     , Edit.EditFetch
-                     , Edit.EditLoad
-                     , Edit.EditSubmit
-                     , Edit.EditCommon
-                     , Edit.EditShortcuts
+                     , EditPreview
+                     , EditFetch
+                     , EditLoad
+                     , EditSubmit
+                     , EditCommon
+                     , EditShortcuts
                      , MathJax
   build-depends:       base >= 4 && < 5
                      , mtl
@@ -32,4 +31,4 @@ executable wn-frontend-exe
                      , ghcjs-base
                      , ghcjs-dom
                      , Spock-api-ghcjs
-                     , wn-api
+                     , elfcom-api

+ 5 - 0
elfcom-frontend/edit/replace_js.sh

@@ -0,0 +1,5 @@
+#!/bin/bash
+echo "Replacing js ..."
+rm -f ../../elfcom-backend/static/js/site_edit.js
+cp .stack-work/dist/x86_64-linux/Cabal-1.24.0.0_ghcjs/build/elfcom-edit-exe/elfcom-edit-exe.jsexe/all.js \
+   ../../elfcom-backend/static/js/site_edit.js

+ 1 - 1
wn-frontend/src/Edit/EditCommon.hs

@@ -1,4 +1,4 @@
-module Edit.EditCommon where
+module EditCommon where
 
 import GHCJS.DOM.Types (Document(..), Element(..), HTMLSelectElement(..),
                         HTMLTextAreaElement(..), unsafeCastTo)

+ 3 - 3
wn-frontend/src/Edit/EditFetch.hs

@@ -1,4 +1,4 @@
-module Edit.EditFetch where
+module EditFetch where
 
 import Control.Monad (join)
 import Data.Maybe (listToMaybe, catMaybes)
@@ -16,10 +16,10 @@ import GHCJS.DOM.HTMLSelectElement (getOptionsUnsafe)
 import GHCJS.DOM.HTMLOptionsCollection (remove, getLength)
 
 import Web.Spock.Api.Client
-import qualified Wnapi.Api.Edit as E
+import qualified Elfcom.Api.Edit as E
 
 import Util
-import Edit.EditCommon
+import EditCommon
 
 
 initFetch :: EditObjects -> IO ()

+ 4 - 4
wn-frontend/src/Edit/EditLoad.hs

@@ -1,4 +1,4 @@
-module Edit.EditLoad where
+module EditLoad where
 
 import Data.Time.Format (formatTime, defaultTimeLocale)
 import Data.List (intercalate)
@@ -11,11 +11,11 @@ import GHCJS.DOM.HTMLSelectElement (itemUnsafe,
 import GHCJS.DOM.HTMLTextAreaElement (setValue)
 
 import Web.Spock.Api.Client
-import qualified Wnapi.Api.Edit as E
+import qualified Elfcom.Api.Edit as E
 
 import Util
-import Edit.EditCommon
-import Edit.EditPreview
+import EditCommon
+import EditPreview
 
 
 initLoad :: EditObjects -> IO ()

+ 3 - 3
wn-frontend/src/Edit/EditPreview.hs

@@ -1,4 +1,4 @@
-module Edit.EditPreview where
+module EditPreview where
 
 import Data.List (intercalate)
 import Text.Read (readMaybe)
@@ -17,11 +17,11 @@ import qualified GHCJS.DOM.HTMLTextAreaElement as HTA (getSelectionStart)
 
 
 import Web.Spock.Api.Client
-import qualified Wnapi.Api.Edit as E
+import qualified Elfcom.Api.Edit as E
 
 import MathJax
 import Util
-import Edit.EditCommon
+import EditCommon
 
 
 doPreview :: EditObjects -> IO ()

+ 2 - 2
wn-frontend/src/Edit/EditShortcuts.hs

@@ -1,4 +1,4 @@
-module Edit.EditShortcuts where
+module EditShortcuts where
 
 import Control.Monad.IO.Class (MonadIO(..))
 import Data.Char (isDigit, isLower, digitToInt)
@@ -10,7 +10,7 @@ import GHCJS.DOM.KeyboardEvent (getShiftKey, getAltKey, getCtrlKey)
 import GHCJS.DOM.Element (keyDown)
 
 import Util
-import Edit.EditCommon
+import EditCommon
 
 
 data KeyMod = None | ShiftKey | AltKey | CtrlKey

+ 3 - 3
wn-frontend/src/Edit/EditSubmit.hs

@@ -1,12 +1,12 @@
-module Edit.EditSubmit where
+module EditSubmit where
 
 import Text.Read (readMaybe)
 
 import Util
-import Edit.EditCommon
+import EditCommon
 
 import Web.Spock.Api.Client
-import qualified Wnapi.Api.Edit as E
+import qualified Elfcom.Api.Edit as E
 
 
 data SubmitType = SubmitSave | SubmitDraft | SubmitDelete deriving (Eq, Show)

+ 9 - 9
wn-frontend/src/Edit/EditMain.hs

@@ -1,4 +1,4 @@
-module Edit.EditMain where
+module Main where
 
 import Control.Monad.Trans (liftIO)
 import Control.Monad (join)
@@ -9,16 +9,16 @@ import GHCJS.DOM (currentDocument)
 import GHCJS.DOM.EventM (on)
 import GHCJS.DOM.Element (keyUp, click)
 
-import Edit.EditCommon
-import Edit.EditSubmit
-import Edit.EditPreview
-import Edit.EditFetch
-import Edit.EditLoad
-import Edit.EditShortcuts
+import EditCommon
+import EditSubmit
+import EditPreview
+import EditFetch
+import EditLoad
+import EditShortcuts
 
 
-editMain :: IO ()
-editMain = do
+main :: IO ()
+main = do
   Just d <- currentDocument
   let inputIds = ["edit-preview", "edit-text", "edit-select", "edit-title",
                   "edit-categories", "edit-ptype", "edit-paccess",

wn-frontend/src/MathJax.hs → elfcom-frontend/edit/src/MathJax.hs


wn-frontend/src/Util.hs → elfcom-frontend/edit/src/Util.hs


+ 1 - 1
wn-frontend/stack.yaml

@@ -11,7 +11,7 @@ setup-info:
 
 packages:
   - .
-  - ../wn-api
+  - ../../elfcom-api
 
 extra-deps:
   - ghcjs-dom-0.7.0.4

+ 0 - 10
wn-backend/restart_server.sh

@@ -1,10 +0,0 @@
-#!/bin/bash
-running="$(ps aux | grep '[w]n-backend-exe' | awk '{print $2}')"
-if [ -z "$running" ]; then
-    echo "Starting wn-backend-exe ..."
-    stack exec wn-backend-exe &
-else
-    kill $running
-    echo "Restarting wn-backend-exe ..."
-    stack exec wn-backend-exe &
-fi

+ 0 - 11
wn-frontend/replace_js.sh

@@ -1,11 +0,0 @@
-#!/bin/bash
-#echo "Minifying all.js ..."
-#./node_modules/closurecompiler/bin/ccjs \
-#    .stack-work/dist/x86_64-linux/Cabal-1.24.0.0_ghcjs/build/wn-frontend-exe/wn-frontend-exe.jsexe/all.js \
-#    --debug --compilation_level=ADVANCED_OPTIMIZATIONS \
-#    --externs=node \
-#    > all.min.js
-echo "Replacing all.js ..."
-rm -f ../wn-backend/static/js/all.js
-cp .stack-work/dist/x86_64-linux/Cabal-1.24.0.0_ghcjs/build/wn-frontend-exe/wn-frontend-exe.jsexe/all.js \
-   ../wn-backend/static/js/

+ 0 - 8
wn-frontend/src/Main.hs

@@ -1,8 +0,0 @@
-module Main where
-
-import Edit.EditMain
-
-
-main :: IO ()
-main = do
-  editMain