@@ -30,8 +30,11 @@ mkHttpRequest verb e opts = request
3030 -- TODO: manager = newManager defaultManagerSettings -- We likely need
3131 -- this for TLS.
3232
33−defaultHandler :: Request -> IO Response
34−defaultHandler = undefined
33+defaultHttpHandler :: Request -> IO Response
34+defaultHttpHandler request = do
35+ manager <- newManager defaultManagerSettings
36+ response <- httpLbs request manager
37+ return response
3538
3639encodeURL :: [Text] -> Text
3740encodeURL ps = decodeUtf8 $ toByteString $ encodePathSegments ps