Correct Zcash price handling in `invdata`

2023-06-22 11:52:36 -05:00 · 2023-06-22 11:52:36 -05:00 · 4bd49c76d4
parent fb0144bbe1
commit 4bd49c76d4
1 changed files with 3 additions and 3 deletions
--- a/src/ZGoBackend.hs
+++ b/src/ZGoBackend.hs
@ -699,7 +699,7 @@ routes pipe config = do
                                               run
                                                 (findPrice $
                                                  T.unpack . ocurrency $ o')
-                                             case cast' . Doc =<< pr of
+                                             case parseZGoPrice =<< pr of
                                               Nothing -> do
                                                 status ok200
                                                 Web.Scotty.json
@ -722,9 +722,9 @@ routes pipe config = do
                                                         now
                                                         True
                                                         (ocurrency o')
-                                                         cp
+                                                         (price cp)
                                                         (xi_total xI)
-                                                         (xi_total xI / cp)
+                                                         (xi_total xI / price cp)
                                                         [ LineItem
                                                             1
                                                             ("Invoice from " <>