From dee8c3aafb41d984bc69274ed320272ee7ee2bbf Mon Sep 17 00:00:00 2001 From: Ben Sima 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/Path.hs | 27 --------------------------- 1 file changed, 27 deletions(-) delete mode 100644 Biz/Devalloc/Path.hs (limited to 'Biz/Devalloc/Path.hs') diff --git a/Biz/Devalloc/Path.hs b/Biz/Devalloc/Path.hs deleted file mode 100644 index 1463fc4..0000000 --- a/Biz/Devalloc/Path.hs +++ /dev/null @@ -1,27 +0,0 @@ -{-# LANGUAGE DataKinds #-} -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE TypeOperators #-} - -module Biz.Devalloc.Path - ( Paths, - home, - signup, - ) -where - -import Alpha -import qualified Biz.Devalloc.Core as Core -import Miso -import Servant - -type Paths = Home :<|> Signup - -type Home = View Core.Move - -type Signup = "signup" :> View Core.Move - -home :: URI -home = linkURI <| safeLink (Proxy :: Proxy Paths) (Proxy :: Proxy Home) - -signup :: URI -signup = linkURI <| safeLink (Proxy :: Proxy Paths) (Proxy :: Proxy Signup) -- cgit v1.2.3