polishing

more
cardano-foundation · Apr 30, 2024 · bcc9786 · bcc9786
1 parent 54fa9d2
commit bcc9786
Show file tree

Hide file tree

Showing 3 changed files with 3 additions and 4 deletions.
diff --git a/lib/api/src/Cardano/Wallet/Api/Http/Server/Error.hs b/lib/api/src/Cardano/Wallet/Api/Http/Server/Error.hs
@@ -36,8 +36,8 @@ import Cardano.Address.Script
 import Cardano.Wallet
     ( ErrAddCosignerKey (..)
     , ErrCannotJoin (..)
-    , ErrCannotVote (..)
     , ErrCannotQuit (..)
+    , ErrCannotVote (..)
     , ErrConstructSharedWallet (..)
     , ErrConstructTx (..)
     , ErrCreateMigrationPlan (..)

diff --git a/lib/wallet/src/Cardano/Wallet/Delegation.hs b/lib/wallet/src/Cardano/Wallet/Delegation.hs
@@ -203,5 +203,4 @@ guardVoting
     -> Either ErrCannotVote ()
 guardVoting optionalDelegationAction votingSameAgainM = do
     when (isNothing optionalDelegationAction && (fst <$> votingSameAgainM) == Just True ) $
-        Left $ ErrAlreadyVoted $ fromJust $ snd <$> votingSameAgainM
-    pure ()
+        Left $ ErrAlreadyVoted $ snd (fromJust votingSameAgainM)
diff --git a/lib/wallet/src/Cardano/Wallet/Transaction.hs b/lib/wallet/src/Cardano/Wallet/Transaction.hs
@@ -395,7 +395,7 @@ data ErrCannotJoin
     | ErrNoSuchPool PoolId
     deriving (Generic, Eq, Show)
 
-data ErrCannotVote
+newtype ErrCannotVote
     = ErrAlreadyVoted DRep
     deriving (Generic, Eq, Show)