Don't swallow errors in listPoolLifeCycleData.

cardano-foundation · Sep 7, 2020 · cea2818 · cea2818
1 parent 83de0c4
commit cea2818
Showing 1 changed file with 5 additions and 1 deletion.
diff --git a/lib/core/src/Cardano/Pool/DB/Sqlite.hs b/lib/core/src/Cardano/Pool/DB/Sqlite.hs
@@ -382,8 +382,12 @@ newDBLayer trace fp timeInterpreter = do
  rights . fmap safeCast <$> rawSql query parameters
 
  listPoolLifeCycleData epochNo =
- rights . fmap parseRow <$> rawSql query parameters
+ fmap (assertSuccess . parseRow) <$> rawSql query parameters
  where
+ assertSuccess = flip either id $ \e -> error $ mconcat
+ [ "Unexpected failure to parse pool lifecycle data: "
+ , show e
+ ]
  query = T.unwords
  [ "SELECT *"
  , "FROM active_pool_lifecycle_data"