feat: update stake address info function for blockfrost provider to g…

…ive details even for 404 Related to #294
geniusyield · Apr 26, 2024 · 28e9059 · 28e9059
1 parent 5f857dc
commit 28e9059
Showing 1 changed file with 9 additions and 5 deletions.
diff --git a/src/GeniusYield/Providers/Blockfrost.hs b/src/GeniusYield/Providers/Blockfrost.hs
@@ -453,11 +453,15 @@ blockfrostLookupDatum p dh = do
 
 blockfrostStakeAddressInfo :: Blockfrost.Project -> GYStakeAddress -> IO GYStakeAddressInfo
 blockfrostStakeAddressInfo p saddr = do
-  accInfo <- Blockfrost.runBlockfrost p (Blockfrost.getAccount (Blockfrost.mkAddress $ stakeAddressToText saddr)) >>= handleBlockfrostError "Account"
-  pure $ GYStakeAddressInfo
-    { gyStakeAddressInfoDelegatedPool = Blockfrost._accountInfoPoolId accInfo >>= stakePoolIdFromTextMaybe . Blockfrost.unPoolId
-    , gyStakeAddressInfoAvailableRewards = fromInteger $ lovelacesToInteger $ Blockfrost._accountInfoWithdrawableAmount accInfo
-    }
+  Blockfrost.runBlockfrost p (Blockfrost.getAccount (Blockfrost.mkAddress $ stakeAddressToText saddr)) >>= handler
+  where
+    -- This particular error is fine.
+    handler (Left Blockfrost.BlockfrostNotFound) = pure $ GYStakeAddressInfo Nothing 0
+    handler other                                = handleBlockfrostError "Account" $ other <&> \accInfo ->
+      GYStakeAddressInfo
+        { gyStakeAddressInfoDelegatedPool = Blockfrost._accountInfoPoolId accInfo >>= stakePoolIdFromTextMaybe . Blockfrost.unPoolId
+        , gyStakeAddressInfoAvailableRewards = fromInteger $ lovelacesToInteger $ Blockfrost._accountInfoWithdrawableAmount accInfo
+        }
 
 -------------------------------------------------------------------------------
 -- Auxiliary functions