diff options
| author | Joris Guyonvarch | 2015-07-19 00:45:42 +0200 |
|---|---|---|
| committer | Joris Guyonvarch | 2015-07-19 00:45:42 +0200 |
| commit | a6727f104f808e533052f2bd83bc89cd6bfa0522 (patch) | |
| tree | 2c7b8b16d377c04e9e9a32b74102666f6dae16cf /src/server/Main.hs | |
| parent | 3486644b442a0800f645ec9ae7f3ce8fe2b3c9cd (diff) | |
| download | budget-a6727f104f808e533052f2bd83bc89cd6bfa0522.tar.gz budget-a6727f104f808e533052f2bd83bc89cd6bfa0522.tar.bz2 budget-a6727f104f808e533052f2bd83bc89cd6bfa0522.zip | |
Adding UI to sign in and sign out
Diffstat (limited to 'src/server/Main.hs')
| -rw-r--r-- | src/server/Main.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/server/Main.hs b/src/server/Main.hs index f73f2e0..8d5a625 100644 --- a/src/server/Main.hs +++ b/src/server/Main.hs @@ -31,12 +31,12 @@ main = do cost <- param "cost" :: ActionM Int insertPaymentAction email name cost - get "/signIn" $ do + post "/signIn" $ do login <- param "login" :: ActionM Text signIn login - get "/checkConnection" $ + post "/checkConnection" $ checkConnection - get "/signOut" $ + post "/signOut" $ signOut |