post rebase adjustments

cardano-foundation · Nov 21, 2022 · a57a8fe · a57a8fe
1 parent 35538ec
commit a57a8fe
Showing 1 changed file with 10 additions and 7 deletions.
diff --git a/lib/wallet/api/http/Cardano/Wallet/Api/Http/Shelley/Server.hs b/lib/wallet/api/http/Cardano/Wallet/Api/Http/Shelley/Server.hs
@@ -2092,14 +2092,13 @@ deleteTransaction ctx (ApiT wid) (ApiTxId (ApiT (tid))) = do
     return NoContent
 
 listTransactions
-    :: forall ctx s k ktype n.
+    :: forall s k ktype n.
         ( Typeable s
         , Typeable n
-        , ctx ~ ApiLayer s k ktype
         , HasDelegation s
         , Typeable k
         )
-    => ApiLayer s k 'CredFromKeyK
+    => ApiLayer s k ktype
     -> ApiT WalletId
     -> Maybe MinWithdrawal
     -> Maybe Iso8601Time
@@ -2130,13 +2129,13 @@ listTransactions
     defaultSortOrder = Descending
 
 getTransaction
-    :: forall ctx s k ktype n.
+    :: forall s k ktype n.
         ( Typeable s
         , Typeable n
-        , ctx ~ ApiLayer s k ktype
+        , Typeable k
         , HasDelegation s
         )
-    => ApiLayer s k 'CredFromKeyK
+    => ApiLayer s k ktype
     -> ApiT WalletId
     -> ApiTxId
     -> TxMetadataSchema
@@ -4113,7 +4112,11 @@ data MkApiTransactionParams = MkApiTransactionParams
     deriving (Eq, Generic, Show)
 
 mkApiTransaction
-    :: forall n s k ktype . (Typeable s, Typeable n, HasDelegation s)
+    :: forall n s k ktype.
+    ( Typeable s
+    , Typeable n
+    , Typeable k
+    , HasDelegation s)
     => TimeInterpreter (ExceptT PastHorizonException IO)
     -> W.WalletLayer IO s k ktype
     -> WalletId