diff options
| author | Joris Guyonvarch | 2015-07-18 15:19:48 +0200 |
|---|---|---|
| committer | Joris Guyonvarch | 2015-07-18 15:19:48 +0200 |
| commit | 89dd4de13896f8e37d1bf133080eb881ab42b292 (patch) | |
| tree | f7d8cc5f412355524ef5b3f128aa09fce89c0afa /src/server/Main.hs | |
| parent | 0041c546869f0a7fd59a085cc75b481237b6c380 (diff) | |
| download | budget-89dd4de13896f8e37d1bf133080eb881ab42b292.tar.gz budget-89dd4de13896f8e37d1bf133080eb881ab42b292.tar.bz2 budget-89dd4de13896f8e37d1bf133080eb881ab42b292.zip | |
Adding login/logout functions thanks to a client session
Diffstat (limited to 'src/server/Main.hs')
| -rw-r--r-- | src/server/Main.hs | 10 |
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 |