handle resp = do
    when (resp ^?! responseStatus /= status200) $ do
        putStrLn $ show (resp ^?! responseBody)
handle resp = do
    when (resp ^?! responseStatus /= status200) $ do
        putStrLn $ show (resp ^?! responseBody)
handle resp = do
    when (resp ^?! responseStatus /= status200) $ do
        putStrLn $ show (resp ^?! responseBody)