diff options
| author | Joris Guyonvarch | 2015-07-18 17:36:35 +0200 |
|---|---|---|
| committer | Joris Guyonvarch | 2015-07-18 17:36:35 +0200 |
| commit | b27a7914993f5a5a87160dc33431a6fa1f4ad323 (patch) | |
| tree | 656447c17b61c0449fed21ef383c8910be365a79 /src/server/Main.hs | |
| parent | 89dd4de13896f8e37d1bf133080eb881ab42b292 (diff) | |
| download | budget-b27a7914993f5a5a87160dc33431a6fa1f4ad323.tar.gz budget-b27a7914993f5a5a87160dc33431a6fa1f4ad323.tar.bz2 budget-b27a7914993f5a5a87160dc33431a6fa1f4ad323.zip | |
Securing the index page with the login session
Diffstat (limited to 'src/server/Main.hs')
| -rw-r--r-- | src/server/Main.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/server/Main.hs b/src/server/Main.hs index 69de885..f73f2e0 100644 --- a/src/server/Main.hs +++ b/src/server/Main.hs @@ -32,8 +32,8 @@ main = do insertPaymentAction email name cost get "/signIn" $ do - email <- param "email" :: ActionM Text - signIn email + login <- param "login" :: ActionM Text + signIn login get "/checkConnection" $ checkConnection |