aboutsummaryrefslogtreecommitdiff
path: root/src/server/Main.hs
diff options
context:
space:
mode:
Diffstat (limited to 'src/server/Main.hs')
-rw-r--r--src/server/Main.hs10
1 files changed, 10 insertions, 0 deletions
diff --git a/src/server/Main.hs b/src/server/Main.hs
index 981c865..69de885 100644
--- a/src/server/Main.hs
+++ b/src/server/Main.hs
@@ -30,3 +30,13 @@ main = do
name <- param "name" :: ActionM Text
cost <- param "cost" :: ActionM Int
insertPaymentAction email name cost
+
+ get "/signIn" $ do
+ email <- param "email" :: ActionM Text
+ signIn email
+
+ get "/checkConnection" $
+ checkConnection
+
+ get "/signOut" $
+ signOut