summaryrefslogtreecommitdiff
path: root/Biz/Devalloc/Path.hs
diff options
context:
space:
mode:
Diffstat (limited to 'Biz/Devalloc/Path.hs')
-rw-r--r--Biz/Devalloc/Path.hs27
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)