add signWith impl for shelley witness

IntersectMBO · Aug 10, 2020 · 3b1cc29 · 3b1cc29
1 parent d5463b0
commit 3b1cc29
Showing 1 changed file with 7 additions and 1 deletion.
diff --git a/src/Data/UTxO/Transaction/Cardano/Shelley.hs b/src/Data/UTxO/Transaction/Cardano/Shelley.hs
@@ -119,7 +119,13 @@ instance MkPayment Shelley where
         neInps  = NE.fromList $ reverse inps
         neOuts  = NE.fromList $ reverse outs
 
-    signWith = undefined
+    signWith :: SignKey Shelley -> Tx Shelley -> Tx Shelley
+    signWith _ (Left e) = Left e
+    signWith signingKey (Right (net, inps, outs, sigData, wits)) =
+        Right (net, inps, outs, sigData, shelleyWit : wits)
+      where
+        shelleyWit = Cardano.makeShelleyKeyWitness sigData signingKey
+
     serialize = undefined
 
 -- | Construct a payment 'Input' for /Shelley/ from primitive types.