diff options
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) |