/BasicAuth.hs
Created Jul 30, 2015
| import Network.Browser | |
| main = | |
| browse $ do | |
| setAuthorityGen (\_ _ -> return $ Just ("username", "password")) | |
| request $ getRequest "http://github.com" |
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment