https://stripe.com/docs/api#diputes

import Web.Stripe         
import Web.Stripe.Charge
import Web.Stripe.Dispute

main :: IO ()
main = do
  let config = SecretKey "secret_key"
  result <- stripe config $ do
    Charge { chargeDispute = dispute } <- getCharge (ChargeId "charge_id")
    return dispute
  case result of
    Right (Just dispute) -> print dispute
    Right Nothing        -> print "no dispute on this charge"
    Left  stripeError    -> print stripeError