getDetails :: AuthToken -> DetailName -> PU [Node] a -> EbayT (StandardOutput, a)
getDetails tok dname xpOutput = do
        (EbayConf{..}) <- ask
        let input = (fromAuthToken tok, dname)
        ebayPost "GeteBayDetails" xpInput xpOutput input
    where xpInput = xp2Tuple xpWithAuth (xpElemText "{urn:ebay:apis:eBLBaseComponents}DetailName")
getDetails :: AuthToken -> DetailName -> PU [Node] a -> EbayT (StandardOutput, a)
getDetails tok dname xpOutput = do
        (EbayConf{..}) <- ask
        let input = (fromAuthToken tok, dname)
        ebayPost "GeteBayDetails" xpInput xpOutput input
    where xpInput = xp2Tuple xpWithAuth (xpElemText "{urn:ebay:apis:eBLBaseComponents}DetailName")
getDetails tok dname xpOutput = do
        (EbayConf{..}) <- ask
        let input = (fromAuthToken tok, dname)
        ebayPost "GeteBayDetails" xpInput xpOutput input
    where xpInput = xp2Tuple xpWithAuth (xpElemText "{urn:ebay:apis:eBLBaseComponents}DetailName")