diff options
| author | Ben Sima <ben@bsima.me> | 2020-12-06 12:05:58 -0500 |
|---|---|---|
| committer | Ben Sima <ben@bsima.me> | 2020-12-06 12:22:33 -0500 |
| commit | dee8c3aafb41d984bc69274ed320272ee7ee2bbf (patch) | |
| tree | 53c943629cc7e5d1d574cecde081f20749eb90af /Biz/Devalloc/Path.hs | |
| parent | 83c473947589cd90fc74fb59e9c9c28a677583c3 (diff) | |
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.
Diffstat (limited to 'Biz/Devalloc/Path.hs')
| -rw-r--r-- | Biz/Devalloc/Path.hs | 27 |
1 files changed, 0 insertions, 27 deletions
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) |