diff --git a/src/ZGoBackend.hs b/src/ZGoBackend.hs
index d72b484..ee724cd 100644
--- 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 " <>