diff options
Diffstat (limited to 'src/server/Main.hs')
| -rw-r--r-- | src/server/Main.hs | 12 |
1 files changed, 4 insertions, 8 deletions
diff --git a/src/server/Main.hs b/src/server/Main.hs index 3d61481..3539120 100644 --- a/src/server/Main.hs +++ b/src/server/Main.hs @@ -8,7 +8,7 @@ import Control.Concurrent (forkIO) import MonthlyPaymentJob (monthlyPaymentJobListener) import Data.Text (Text) -import qualified Data.Text.IO as TIO +import qualified Data.Text.IO as T import Controller.Index import Controller.SignIn @@ -28,7 +28,7 @@ main = do eitherConfig <- Config.getConfig "config.txt" case eitherConfig of Left errorMessage -> - TIO.putStrLn errorMessage + T.putStrLn errorMessage Right config -> do scotty (Config.port config) $ do middleware $ @@ -40,12 +40,8 @@ main = do -- SignIn post "/signIn" $ do - login <- param "login" :: ActionM Text - signIn config login - - get "/validateSignIn" $ do - token <- param "token" :: ActionM Text - validateSignIn config token + assertion <- param "assertion" :: ActionM Text + signIn config assertion -- Users |