Principle of least power. Use Monad m, not IO.
commit77ca160a6998e795364cbbe01ead5f18b7b74868
authorMichael Xavier <michael@michaelxavier.net>
dateFri 4 Dec 2015, 09:35 (11 years ago)
parente75b167
src/Database/Bloodhound/Client.hs+1−1
@@ -776,7 +776,7 @@ statusCheck prd = prd . NHTS.statusCode . responseStatus
776776-- this option only be used over an SSL connection.
777777--
778778-- >> (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
780780basicAuthHook (EsUsername u) (EsPassword p) = return . applyBasicAuth u' p'
781781 where u' = T.encodeUtf8 u
782782 p' = T.encodeUtf8 p