AmountPriceDebug (Just (TotalPrice pa)) = " @@ " ++ showAmountDebug pa

--
showAmountPriceDebug (Just (TotalPrice pa)) = " @@ " ++ showAmountDebug pa
showAmountPriceDebug (Just (TotalPrice pa)) = " @@ " ++ showAmountDebug pa