Basic 認証 の必要なアクセスをAuthentication.hsを参考に動かしてみた。 import Codec.Binary.Base64.String import Network.HTTP import Network.URI -- Sends an HTTP request to a server identified by uri. -- The username and password are sent with the request using HTTP basic authentication. connect :: String -> (String, String) -> IO String connect uri credentials = case parseURI uri of Nothing -> error "Could not parse URI"