reduce explicit types

This commit is contained in:
Alain Brenzikofer
2026-10-05 10:36:58 +02:00
parent 3141902a53
commit a277c021ea
9 changed files with 45 additions and 116 deletions
+1 -4
View File
@@ -95,10 +95,7 @@ data WalletAddress = WalletAddress {accountIndex :: AccountIndex, keyPath :: Tex
data WalletInfo = WalletInfo {accountIndexes :: [AccountIndex], nextAccountIndex :: Maybe Word32} -- Nothing: unknown after an import
data WalletError
= WENoMaster -- the device has no master entropy
| WEMasterExists -- create, when the device already has one
| WEBadMnemonic -- wrong word count, wrong word, or bad checksum
| WEAccountBound -- bind, on an account another profile holds
= WEAccountBound -- bind, on an account another profile holds
| WEAccountNotHeld -- export account, on an account the profile does not hold
| WECounterUnknown -- the counter is not set yet, after an import
| WEAccountsExhausted -- bind without an index, when the counter has passed every index