Merge pull request #2779 from IntersectMBO/fix/2778-exception-multiple-voting-power-entries-for-stake-key-e12dc5c13fc0d978cc770a34cf170428a7ca3234f8

fix(#2778): exception when there is no voting power for given stake key

Author: MSzalowski

govtool/backend/src/VVA/AdaHolder.hs

@@ -60,4 +60,9 @@ getStakeKeyVotingPower stakeKey = withPool $ \conn -> do
         Text.putStrLn ("couldn't fetch voting power for stake key: " <> stakeKey)
         return 0
       Right [(votingPower,_)] -> return $ floor votingPower
-      _ -> error ("multiple voting power entries for stake key: " <> unpack stakeKey)
+      Right [] -> do
+        Text.putStrLn ("No voting power found for stake key: " <> stakeKey)
+        return 0
+      Right _ -> do
+        Text.putStrLn ("Unexpected result for stake key: " <> stakeKey)
+        return 0