-- | Query adaptive captcha state
makabaCaptcha :: String -> Blast Text
makabaCaptcha usercode = do
    let code = if not $ null usercode then "?usercode=" ++ usercode else []
    responseBody <$> httpReqStr
        (unsafeParseUrl $ ssach ++ "/makaba/captcha.fcgi" ++ code)
            {requestHeaders = [(hAccept, "text/html, */*; q=0.01")
                              ,("X-Requested-With", "XMLHttpRequest")
                            -- ,(hReferer, ssachThread board thread)
                              ]}
makabaCaptcha :: String -> Blast Text
makabaCaptcha usercode = do
    let code = if not $ null usercode then "?usercode=" ++ usercode else []
    responseBody <$> httpReqStr
        (unsafeParseUrl $ ssach ++ "/makaba/captcha.fcgi" ++ code)
            {requestHeaders = [(hAccept, "text/html, */*; q=0.01")
                              ,("X-Requested-With", "XMLHttpRequest")
                            -- ,(hReferer, ssachThread board thread)
                              ]}
makabaCaptcha usercode = do
    let code = if not $ null usercode then "?usercode=" ++ usercode else []
    responseBody <$> httpReqStr
        (unsafeParseUrl $ ssach ++ "/makaba/captcha.fcgi" ++ code)
            {requestHeaders = [(hAccept, "text/html, */*; q=0.01")
                              ,("X-Requested-With", "XMLHttpRequest")
                            -- ,(hReferer, ssachThread board thread)
                              ]}