Merge pull request #2762 from IntersectMBO/test

chore(#2757): add exception handle on voting power query execution

Author: MSzalowski

CHANGELOG.md

@@ -12,7 +12,7 @@ changes.
 
 ### Added
 
--
+- Add exception handler on stake key voting power query execution [Issue 2757](https://github.com/IntersectMBO/govtool/issues/2757)
 
 ### Fixed
 

govtool/backend/src/VVA/AdaHolder.hs

@@ -1,10 +1,12 @@
-{-# LANGUAGE FlexibleContexts  #-}
-{-# LANGUAGE OverloadedStrings #-}
-{-# LANGUAGE TemplateHaskell   #-}
-{-# LANGUAGE TypeApplications  #-}
+{-# LANGUAGE FlexibleContexts    #-}
+{-# LANGUAGE OverloadedStrings   #-}
+{-# LANGUAGE TemplateHaskell     #-}
+{-# LANGUAGE TypeApplications    #-}
+{-# LANGUAGE ScopedTypeVariables #-}
 
 module VVA.AdaHolder where
 
+import           Control.Exception          (try, SomeException)
 import           Control.Monad.Except
 import           Control.Monad.Reader
 
@@ -51,9 +53,11 @@ getStakeKeyVotingPower ::
   Text ->
   m Integer
 getStakeKeyVotingPower stakeKey = withPool $ \conn -> do
-  result <- liftIO $ SQL.query @_ @(Scientific, ByteString) conn getVotingPowerSql (SQL.Only stakeKey)
-  case result of
-    [(votingPower,_)] -> return $ floor votingPower
-    _ -> do
-      liftIO $ Text.putStrLn ("couldn't fetch voting power for stake key: " <> stakeKey)
-      return 0
+  liftIO $ do
+    result <- try $ SQL.query @_ @(Scientific, ByteString) conn getVotingPowerSql (SQL.Only stakeKey)
+    case result of
+      Left (e :: SomeException) -> 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)