-- | Get the value of location header or throws a Bluesnap error
getIDFromLocation :: [Header] -> Bluesnap String
getIDFromLocation headers = maybe
  (throwError $ BluesnapError "Location header is not found!")
  return
  (maybeIDFromLocation headers)
getIDFromLocation :: [Header] -> Bluesnap String
getIDFromLocation headers = maybe
  (throwError $ BluesnapError "Location header is not found!")
  return
  (maybeIDFromLocation headers)
getIDFromLocation headers = maybe
  (throwError $ BluesnapError "Location header is not found!")
  return
  (maybeIDFromLocation headers)