From d6adea3cd0880f4781e7291a19deceac046879c5 Mon Sep 17 00:00:00 2001
From: Jason Ridgway-Taylor <jason@glottologist.co.uk>
Date: Mon, 20 Nov 2023 13:10:38 +0800
Subject: [PATCH] Added view to get pair name

---
 batcher/batcher.mligo                 |  3 +++
 batcher/michelson/batcher-ghostnet.tz | 39 +++++++++++++++++++++++++++
 2 files changed, 42 insertions(+)

diff --git a/batcher/batcher.mligo b/batcher/batcher.mligo
index d972cc67..533ca4fa 100644
--- a/batcher/batcher.mligo
+++ b/batcher/batcher.mligo
@@ -1228,6 +1228,9 @@ let does_batch_need_liquidity
 [@view]
 let get_valid_swap (pair,storage:string * storage):  valid_swap_reduced = get_valid_swap_reduced pair storage
 
+[@view]
+let get_pair_name ((to,from),_storage:(string * string) * storage):  string = find_lexicographical_pair_name to from
+
 [@view]
 let get_batches_needing_liquidity ((),storage: unit * storage) : batch list=
   let collect_batches (acc, (_s, i) :  batch list * (string * nat)) : batch list =
diff --git a/batcher/michelson/batcher-ghostnet.tz b/batcher/michelson/batcher-ghostnet.tz
index 645fe170..211e1300 100644
--- a/batcher/michelson/batcher-ghostnet.tz
+++ b/batcher/michelson/batcher-ghostnet.tz
@@ -4776,6 +4776,45 @@
                     SWAP ;
                     ITER { CDR ; PUSH nat 0 ; SWAP ; COMPARE ; GT ; OR } ;
                     OR } } } ;
+  view "get_valid_swap"
+       string
+       (pair (pair %swap (string %from) (string %to))
+             (address %oracle_address)
+             (string %oracle_asset_name)
+             (nat %oracle_precision)
+             (bool %is_disabled_for_deposits))
+       { UNPAIR ;
+         SWAP ;
+         CDR ;
+         CDR ;
+         CAR ;
+         UNIT ;
+         VIEW "get_valid_swaps"
+              (map string
+                   (pair (pair %swap (string %from) (string %to))
+                         (address %oracle_address)
+                         (string %oracle_asset_name)
+                         (nat %oracle_precision)
+                         (bool %is_disabled_for_deposits))) ;
+         IF_NONE { PUSH nat 165 ; FAILWITH } {} ;
+         PUSH nat 0 ;
+         DUP 2 ;
+         SIZE ;
+         COMPARE ;
+         EQ ;
+         IF { DROP 2 ; PUSH nat 165 ; FAILWITH }
+            { SWAP ; GET ; IF_NONE { PUSH nat 117 ; FAILWITH } {} } } ;
+  view "get_pair_name"
+       (pair string string)
+       string
+       { CAR ;
+         UNPAIR ;
+         DUP 2 ;
+         DUP 2 ;
+         COMPARE ;
+         GT ;
+         IF { SWAP ; PUSH string "-" ; CONCAT ; SWAP ; CONCAT }
+            { PUSH string "-" ; CONCAT ; SWAP ; CONCAT } } ;
   view "get_batches_needing_liquidity"
        unit
        (list (pair (nat %batch_number)