From dee8c3aafb41d984bc69274ed320272ee7ee2bbf Mon Sep 17 00:00:00 2001
From: Ben Sima <ben@bsima.me>
Date: Sun, 6 Dec 2020 12:05:58 -0500
Subject: Remove Miso from Devalloc

I decided to finish the Devalloc frontend by just removing it. This way I can
have everything in one file, the code is much simpler, and I can scale up as
needed.

Anyway, this works fine with Turbolinks and that's pretty cool, so you get the
same basic feel as with any other SPA.
---
 Biz/Devalloc/Node.hs | 32 --------------------------------
 1 file changed, 32 deletions(-)
 delete mode 100644 Biz/Devalloc/Node.hs

(limited to 'Biz/Devalloc/Node.hs')

diff --git a/Biz/Devalloc/Node.hs b/Biz/Devalloc/Node.hs
deleted file mode 100644
index 51acbf1..0000000
--- a/Biz/Devalloc/Node.hs
+++ /dev/null
@@ -1,32 +0,0 @@
-{-# LANGUAGE NoImplicitPrelude #-}
-{-# LANGUAGE RecordWildCards #-}
-
--- : out devalloc.js
---
--- : dep clay
--- : dep ghcjs-base
--- : dep miso
--- : dep potolude
--- : dep servant
--- : dep text
-module Biz.Devalloc.Node (main) where
-
-import Alpha
-import qualified Biz.Devalloc.Core as Core
-import Miso
-
-main :: IO ()
-main = miso <| \currentURI -> App {model = Core.make currentURI, ..}
-  where
-    update = move
-    view = view
-    subs = []
-    events = defaultEvents
-    initialAction = Core.NoOp
-    mountPoint = Nothing
-
-move :: Core.Move -> Core.Form -> Effect Core.Move Core.Form
-move mov form = case mov of
-  Core.NoOp -> noEff form
-  Core.ChangeURI u -> form <# (pushURI u >> pure Core.NoOp)
-
-- 
cgit v1.2.3