9 lines
188 B
Haskell
9 lines
188 B
Haskell
module Main (main) where
|
|
|
|
import Server
|
|
|
|
import Network.Wai.Handler.Warp
|
|
|
|
main :: IO ()
|
|
main = putStrLn "Try: http://localhost:8080/auth?scopes=[ID,Profile]" >> run 8080 insecureOAuthMock
|