Don't doubly generate common PAB types

input-output-hk · Jan 26, 2022 · 3384280 · 3384280
1 parent bc52caf
commit 3384280
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 7 deletions.
diff --git a/marlowe-dashboard-client/src/Capability/Wallet.purs b/marlowe-dashboard-client/src/Capability/Wallet.purs
@@ -29,8 +29,6 @@ import Marlowe.Run.Wallet.V1 (GetTotalFundsResponse)
 import Plutus.V1.Ledger.Tx (Tx)
 import Types (AjaxResponse)
 
--- FIXME: Abstract away AjaxResponse (just return an `m ResponseType` and
--- handle API failures in the concrete Monad instance).
 class Monad m <= ManageWallet m where
   createWallet
     :: WalletNickname

diff --git a/marlowe-dashboard-server/tools/PSGenerator.hs b/marlowe-dashboard-server/tools/PSGenerator.hs
@@ -88,11 +88,8 @@ dto = equal . genericShow . argonaut
 
 myTypes :: [SumType 'Haskell]
 myTypes =
-    PSGenerator.Common.ledgerTypes <>
-    PSGenerator.Common.walletTypes <>
-    PSGenerator.Common.playgroundTypes <>
-    -- | `WalletInfo` has no `Eq` instance hence
-    -- | `CreateResponse` should not have one.
+    -- `WalletInfo` has no `Eq` instance hence
+    -- `CreateResponse` should not have one.
     [ genericShow . argonaut $ mkSumType @CreateResponse ] <>
     ( dto <$>
         [ mkSumType @StreamToServer,