Have default "wallet i" name for known wallets

tweag · Mar 22, 2024 · 60fb9f3 · 60fb9f3
1 parent 9e7d97d
commit 60fb9f3
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 2 deletions.
diff --git a/doc/CHEATSHEET.md b/doc/CHEATSHEET.md
@@ -54,8 +54,7 @@ pcOpts =
     { C.pcOptHashes =
         def
           { C.pcOptHashNames =
-              defaultHashNames
-                <> C.hashNamesFromList
+                C.hashNamesFromList
                   [ (alice, "Alice"),
                     (bob, "Bob"),
                     (carrie, "Carie")
@@ -67,6 +66,7 @@ pcOpts =
                 <> C.hashNamesFromList
                   [ (fooValidator, "Foo")
                   ]
+                <> C.defaultHashNames -- IMPORTANT: must be the last element
           }
     }
 ```

diff --git a/src/Cooked/Pretty/Options.hs b/src/Cooked/Pretty/Options.hs
@@ -13,6 +13,7 @@ where
 
 import Cooked.Currencies (permanentCurrencySymbol, quickCurrencySymbol)
 import Cooked.Pretty.Hashable
+import Cooked.Wallet (wallet)
 import Data.Bifunctor (first)
 import Data.Default
 import Data.Map (Map)
@@ -99,6 +100,8 @@ defaultHashNames =
       (quickCurrencySymbol, "Quick"),
       (permanentCurrencySymbol, "Permanent")
     ]
+    <> hashNamesFromList
+      ((\i -> (wallet i, "wallet " <> show i)) <$> [1 .. 10])
 
 -- | Smart constructor for maps to be used in the "pcOptHashNames"
 -- pretty-printing option.