git.iko.soy/typeable/bloodhound
on master help sign in
Principle of least power. Use Monad m, not IO.
77ca160Michael Xavier
src/Database/Bloodhound/Client.hs+1−1
compare with master
unifiedsplit
@@ -776,7 +776,7 @@ statusCheck prd = prd . NHTS.statusCode . responseStatus
776-- this option only be used over an SSL connection.
776-- this option only be used over an SSL connection.
777--
777--
778-- >> (mkBHEnv myServer myManager) { bhRequestHook = basicAuthHook (EsUsername "myuser") (EsPassword "mypass") }
778-- >> (mkBHEnv myServer myManager) { bhRequestHook = basicAuthHook (EsUsername "myuser") (EsPassword "mypass") }
779−basicAuthHook :: EsUsername -> EsPassword -> Request -> IO Request
779+basicAuthHook :: Monad m => EsUsername -> EsPassword -> Request -> m Request
780basicAuthHook (EsUsername u) (EsPassword p) = return . applyBasicAuth u' p'
780basicAuthHook (EsUsername u) (EsPassword p) = return . applyBasicAuth u' p'
781 where u' = T.encodeUtf8 u
781 where u' = T.encodeUtf8 u
782 p' = T.encodeUtf8 p
782 p' = T.encodeUtf8 p